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access 
alloc 
aretu: 
backup: 
badblock 
bawrite 
bcopy 
bdwrite 
bflush 
binit 
bmap 
bread 
breada 
brelse 
bwrite 
canon 
chdir 
chmod 
chown 
cinit 
clearseg: 
clock 
close 
closef 
closei 
clrbuf 
copyin: 
copyout: 
copyseg: 
core 
cpass 
creat 
deverror 
devstart 
display: 
dpadd: 
dpcmp: 
dup 
estabur 
exec 
exit 
expand 
falloc 
flushtty 
fork 
free 
fstat 
fubyte: 
fuibyte: 
fuiword: 
fuword: 
getblk 
getc: 
geterror 
getf 
getfs 


3472 
6181 
3480 
3413 
3452 
4136 
3420 
8165 
7067 
1284 
7134 
7276 
6922 
4899 
0895 
5018 
6364 
4982 
7344 
3991 
7414 
7374 
3630 
8055 
8023 
8062 
8078 
8090 
8066 
8070 
1393 
5909 
8879 
8863 
8976 
8850 
8986 
8967 
8870 
1401 
1410 
1550 
7455 
2528 
5156 
5182 
6326 
2556 
6339 
5952 
9016 
9042 
7518 
1826 
3493 
6566 


getgid 
getmdev 
getpid 
getswit 
getuid 
grow 
gtime 
gtty 
ialloc 
idle: 
ifree 
iget 
iinit 
incore 
incupc: 
iodone 
iomove 
iowait 
iput 
issig 
itrunc 
iupdat 
kill 
klclose 
klopen 
klread 
klrint 
klsgtty 
klwrite 
klxint 
ldiv: 
link 
lpcanon 
lpclose 
lpint 
lpopen 
lpoutput 
lpstart 
lpwrite 
lrem: 
lshift: 
main 
maknode 
malloc 
mapalloc 
mapfree 
max 
mfree 
min 
mknod 
mmread 
mmwrite 
namei 
newproc 
nice 
nodev 


2855 
4999 
1771 
6577 
2864 
5765 
5804 
6702 
6791 
2416 
6517 
8669 
8763 
8648 
8748 
8739 
8682 
8719 
8710 
8701 
5259 
7723 
7862 
2433 
7882 
2340 
2369 
4204 
3667 
4043 
3963 
4164 
0967 
2386 
5731 
5711 
6221 
7758 
0740 
3205 
5123 
5420 
5451 
5476 
5440 
5389 
5483 
0889 
0725 
3354 
7679 
1940 
5861 
3460 
2156 
2134 


nosys 
notavil 
nseg 
nulldev 
nullsys 
open 
openl 
openi 
owner 
panic 
passc 
pcclose 
pcleader 
pcopen 
pcoutput 
pepint 
pcread 
perint 
pestart 
pewrite 
physio 
pipe 
plock 
prdev 
prele 
printf 
printn 
procxmt 
profil 
psig 
psignal 
ptrace 
putc: 
putchar 
rdwr 
read 
readi 
readp 
retu: 
rexit 
rhstart 
rkaddr 
rkintr 
rkread 
rkstart 
rkstrategy 
rkwrite 
savfp: 
savu: 
sbreak 
schar 
sched 
seek 
setgid 
setpri 
setrun 


3439 
8201 
3949 
2066 
3595 
6086 
1293 
1297 
1302 
1303 
1308 
1313 
3614 
5979 
6028 
6045 
3428 
4016 
8183 
0827 
0826 
0860 
6144 
1739 
6811 
0861 
5196 
2178 
3486 
3845 
3656 
2693 
2841 
8535 
8486 
8505 
8550 
8333 
8373 
8577 
7689 
6824 
3510 
7201 
3270 
2113 
7477 
8217 
5720 
6276 
7805 
4433 
4490 
4398 
4368 


setuid 
sgtty 
signal 
sleep 
smdate 
smount 
spl0: 
spll: 
spl4: 
spl5: 
spl6: 
spl7: 
ssig 
sslep 
stat 
statl 
stime 
stop 
stty 
subyte: 
suibyte: 
suiword: 
sumount 
sureg 
suser 
suword: 
swap 
swtch 
sync 
timeout 
times 
trap 
trapl 
ttread 
ttrstrt 
ttstart 
ttwrite 
ttyinput 
ttyoutput 
ttystty 
uchar 
ufalloc 
unlink 
update 
wait 
wakeup 
wdir 
wflushtty 
write 
writei 
writep 
xalloc 
xccdec 
xfree 
xswap 
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File param.h 
File systm.h 
File seg.h 
File proc.h 
File user.h 
File low.s 
File m40.s 


0676 clearseg: 
0696 copyseg: 
0725  savu: 
0734 aretu: 
0740 retu: 
0814 fuibyte: 
0815 fubyte: 
0826 suibyte: 
0827  subyte: 
0844 fuiword: 
0845  fuword: 
0860 suiword: 
0861 suword: 
0889 savfp: 
0890 display: 
0895 incupc: 
0930 getc: 
0967 pute: 
1012 backup: 
1244 copyin: 
1252 copyout: 
1284 idle: 
1293 _spl0: 
1297 spll: 
1302 spl4: 
1303 spl15: 
1308 splé: 
1313 spl7: 
1319 dpadd: 
1327 dpcmp: 
1393 ldiv: 
1401 Ilrem: 
1410 Ilshift: 
File main.c 
1550 main 
1650 estabur 
1739 sureg 
1771 nseg 
File slp.c 
1826 newproc 
1940 sched 
2066 sleep 
2113 wakeup 
2134 setrun 
2156 setpri 
2178 swtch 
2268 expand 
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File prf.c 
2340 printf 
2369 printn 
2386 putchar 
2416 panic 
2433 prdev 
2447 deverror 

File malloc.c 
2528 malloc 
2556 mfree 

File reg.h 

File trap.c 
2693 trap 
2841 trapl 
2855 nosys 
2864 nullsys 

File sysent.c 

File sysl.c 
3020 exec 
3205 rexit 
3219 exit 
3270 wait 
3322 fork 
3354 sbreak 

File sys4.c 
3413 getswit 
3420 gtime 
3428 stime 
3439 setuid 
3452 getuid 
3460 setgid 
3472 getgid 
3480 getpid 
3486 sync 
3493 nice 
3510 unlink 
3538 chdir 
3560 chmod 
3575 chown 
3595 smdate 
3614 ssig 
3630 kill 
3656 times 
3667 profil 

File clock.c 
3725 clock 
3845 timeout 

File sig.c 
3949 signal 
3963 psignal 
3991 issig 
4016 stop 
4043 psig 
4094 core 
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4136 grow 

4164 ptrace 

4204 procxmt 
File text.h 
File text.c 

4368 xswap 

4398 xfree 

4433 xalloc 

4490 xccdec 
File buf.h 
File conf.h 
File conf.c 
File bio.c 

4754 bread 

4773 breada 

4809 bwrite 

4836 bdwrite 

4856 bawrite 

4869 brelse 

4899 incore 

4921 getblk 

4982 iowait 

4999 notavil 

5018 iodone 

5038 clrbuf 

5055 binit 

5096 devstart 

5123 rhstart 

5156 mapalloc 

5182 mapfree 

5196 swap 

5229 bflush 

5259 physio 

5336 geterror 
File rk.c 

5389 rkstrategy 

5420 rkaddr 

5440 rkstart 

5451 rkintr 

5476 rkread 

5483 rkwrite 
File file.h 
File filsys.h 
File ino.h 
File inode.h 
File sys2.c 

5711 read 

5720 write 

5731 rdwr 

5765 open 

5781 creat 

5804 openl 

5846 close 


5861 
5909 
5952 
5979 


File 


6014 
6028 
6045 
6069 
6086 
6144 
6181 


File 


6221 
6276 
6326 
6339 
6364 


File 


6415 
6517 
6542 
6566 
6577 
6585 


File 


6619 
6643 
6672 
6702 
6746 
6791 
6811 
6824 
6847 


File 


6922 
6956 
7000 
7040 
7067 
7134 
7167 
7201 


File 


7276 
7344 
7374 
7414 
7455 
7477 


File 


7518 


seek 
link 
mknod 
sslep 


fstat 
stat 
statl 
dup 
smount 
sumount 
getmdev 


readi 
writei 
max 
min 
iomove 


bmap 
passc 
cpass 
nodev 
nulldev 
bcopy 


getf 
closef 
closei 
openi 
access 
owner 
suser 
ufalloc 
falloc 


iinit 
alloc 
free 
badblock 
ialloc 
ifree 
getfs 
update 


iget 
iput 
iupdat 
itrunc 
maknode 
wdir 


namei 


sys3.c 


rdwri.c 


subr.c 


fio.c 


alloc.c 


iget.c 


nami.c 


7679 schar 
7689 uchar 
File pipe.c 
7723 pipe 
7758 readp 
7805 writep 
7862 plock 
7882 prele 
File tty.h 
File kl.c 
8023 klopen 
8055 klclose 
8062 klread 
8066 klwrite 
8070 klxint 
8078 klrint 
8090 klsgtty 
File tty.c 
8165 gtty 
8183 stty 
8201 sgtty 
8217 wflushtty 
8234 cinit 
8252 flushtty 
8274 canon 
8333 ttyinput 
8373 ttyoutput 
8486 ttrstrt 
8505 ttstart 
8535 ttread 
8550 ttwrite 
8577 ttystty 
File pc.c 
8648 pcopen 
8669 pcclose 
8682 pcread 
8701 pewrite 
8710 pcstart 
8719 pcrint 
8739 pcpint 
8748 pcoutput 
8763 pcleader 
File I1p.c 
8850 lpopen 
8863 lpclose 
8870 lpwrite 
8879 lpcanon 
8967 lpstart 
8976 lpint 
8986 lpoutput 
File mem.c 
9016 mmread 
9042 mmwrite 
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5372 
7993 
7992 
8617 
4584 
4576 
4586 
4574 
4575 
4579 
4577 
4573 
4583 
4581 
4572 
0140 
8840 
7990 
7955 
7954 
7958 
7956 
1509 
1510 
8609 
0141 
7957 
7976 
7970 
5374 
0107 
8010 
7980 
8616 
8815 
5369 
5371 
8013 
0473 
0479 
0477 
0475 
2658 
0481 
0476 
7969 
0318 
0482 
0466 
0492 
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ARDY 
ASLEEP 
BUSY 
BUSY 
B_ASYNC 
B BUSY 
B_DELWRI 
B_ DONE 
B_ ERROR 
B MAP 

B PHYS 
B READ 
B_RELOC 
B WANTED 
B WRITE 
CANBSIZ 
CAP 
CARR_ON 
CEOT 
CERASE 
CINTR 
CKILL 
CLOCK1 
CLOCK2 
CLOSED 
CMAPSIZ 
CQUIT 
CRDELAY 
CRMOD 
CTLRDY 
DIRSIZ 
DLBASE 
DONE 
DONE 
DONE 
DRESET 
DRY 
DSRDY 
E2BIG 
EACCES 
EAGAIN 
EBADF 
EBIT 
EBUSY 
ECHILD 
ECHO 

ED 
EEXIST 
EFAULT 
EFBIG 


0100 
0100 
040 
04000 
0400 
010 
01000 
02 

04 
040 
020 
o1 
0200 
0100 
0 

256 
o1 
020 
004 
"HE 
0177 
‘@’ 
0177546 
0172540 
0 

100 
034 
030000 
020 
0200 
14 
0175610 
0200 
0200 
0200 
014 
0200 
02 

7 

13 

11 

9 

1 

16 

10 
010 
010 
17 
106 
27 


0470 
0487 
0471 
0486 
8842 
8820 
0489 
0496 
0488 
0484 
0468 
0474 
0478 
0493 
0480 
0485 
0490 
0472 
8612 
0467 
0497 
0495 
8618 
0494 
0469 
0491 
7973 
0483 
3018 
8847 
5519 
5517 
5518 
5095 
5368 
7966 
0147 
5681 
5620 
5687 
5092 
5370 
7981 
8615 
8814 
5631 
5698 
5624 
5691 
5623 


EINTR 
EINVAL 
EIO 
EISDIR 
EJECT 
EJLINE 
EMFILE 
EMLINK 
ENFILE 
ENODEV 
ENOENT 
ENOEXEC 
ENOMEM 
ENOSPC 
ENOTBLK 
ENOTDIR 
ENOTTY 
ENXIO 
EOF 
EPERM 
EPIPE 
EROFS 
ERROR 
ESPIPE 
ESRCH 
ETXTBSY 
EVENP 
EXDEV 
EXPRI 
FORM 
FPIPE 
FREAD 
FWRITE 
GO 

GO 
HUPCL 
HZ 

IACC 
TALLOC 
IALLOC 
IENABLE 
IENABLE 
IENABLE 
IENABLE 
IENABLE 
IEXEC 
IEXEC 
IFBLK 
IFBLK 
IFCHR 


22 


21 


60 
24 


23 
19 


12 

28 

15 

20 

25 

6 

3 

1 

32 

30 
0100000 
29 

3 

26 
0200 
18 

-1 

014 

04 

o1 

02 

o1 

o1 

o1 

60 

04 
0100000 
0100000 
0100 
0100 
0100 
0100 
0100 
0100 
0100 
060000 
060000 
020000 
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5690 
5622 
5689 
5621 
5688 
5625 
5692 
5679 
5682 
8844 
3914 
5629 
5696 
5627 
5694 
7987 
5626 
5693 
5628 
5695 
5684 
5680 
5683 
5630 
5697 
0165 
8008 
8009 
7968 
8812 
8819 
8818 
8817 
8821 
0135 
0130 
0143 
0146 
8012 
0134 
0132 
0131 
8011 
7974 
0133 
0105 
0139 
0144 
5364 


Page 1 


IFCHR 
IFDIR 
IFDIR 
IFMT 
IFMT 
ILARG 
ILARG 
ILOCK 
IMOUNT 
IND 
IPCPRI 
IREAD 
IREAD 
ISGID 
ISGID 
ISOPEN 
ISUID 
ISUID 
ISVTX 
ISVTX 
ITEXT 
IUPD 
IWANT 
IWRITE 
IWRITE 
KL 
KLADDR 
KLBASE 
LCASE 
LPADDR 
LPHWAT 
LPLWAT 
LPPRI 
MAXCOL 
MAXMEM 
NBUF 
NCALL 
NCLIST 
NDL11 
NEXEC 
NFILE 
NINODE 
NKL11 
NLDELAY 
NMOUNT 
NODEV 
NOFILE 
NPROC 
NRK 


020000 
040000 
040000 
060000 
060000 
010000 
010000 
o1 

010 

010 
(-1) 
0400 
0400 
02000 
02000 
04 
04000 
04000 
01000 
01000 
040 

02 

020 
0200 
0200 
0177560 
0177560 
0176500 
04 
0177514 
100 

50 

10 

80 
(64*32) 
15 

20 

100 

0 

3 

100 

100 

1 
001400 
5 

(-1) 

15 

50 

4 


5365 
0113 
0145 
0104 
7972 
8843 
8607 
8624 
8620 
8623 
8622 
8621 
0155 
7715 
0157 
0156 
0164 
0159 
0154 
0160 
0158 
2605 
2606 
2607 
2608 
2609 
2610 
2611 
2612 
7971 
5094 
8014 
8614 
8611 
5367 
5121 
5120 
5363 
0315 
0106 
2613 
0317 
3707 
2660 
0385 
0123 
0120 
0121 
0114 


NRKBLK 
NSIG 
NTEXT 
NULL 
ODDP 
OPEN 
PCADDR 
PCIHWAT 
PCIPRI 
PCOHWAT 
PCOLWAT 
PCOPRI 
PINOD 
PIPSIZ 
PPIPE 
PRIBIO 
PS 
PSLEP 
PSWP 
PUSER 
PWAIT 
RO 

R1 

R2 

R3 

R4 

R5 

R6 

R7 

RAW 
RCOM 
RDRENB 
RDRENB 
READING 
RESET 
RHRCOM 
RHWCOM 
RKADDR 
RO 
ROOTINO 
RPS 

RW 
SCHMAG 
SETD 
SIDL 
SIGBUS 
SIGEMT 
SIGFPT 
SIGHUP 


4872 
20 
40 
0 
0100 
04 
0177550 
250 
30 
100 
50 
40 
-90 
4096 
1 
-50 
0177776 
90 
-100 
100 
40 
(0) 
(-2) 
(-9) 
(-8) 
(-7) 
(-6) 
(-3) 
(1) 
040 
04 
o1 
o1 
2 
0 
070 
060 
0177400 
02 
1 
(2) 
06 
10 
0170011 
4 
10 
7 
8 
1 


0117 
0115 
0119 
0122 
0126 
0116 
0124 
0125 
0118 
0138 
0391 
0393 
0142 
0384 
0137 
0382 
7988 
0387 
0394 
0392 
0395 
0166 
0383 
0396 
2661 
0386 
7975 
2615 
7984 
7961 
7951 
7962 
7952 
7963 
0311 
0308 
0306 
0304 
2659 
3706 
2662 
0103 
7977 
8610 
5093 
5373 
0316 
7985 
7967 


SIGINS 
SIGINT 
SIGIOT 
SIGKIL 
SIGPIPE 
SIGQIT 
SIGSEG 
sIGsys 
SIGTRC 
SINCR 
SLOAD 
SLOCK 
SMAPSIZ 
SRUN 
SSIZE 
SSLEEP 
SSTART 
SSTOP 
SSWAP 
ssys 
STRC 

sw 
SWAIT 
SWTED 
sys 
SZOMB 
TBDELAY 
TBIT 
TIMEOUT 
TTHIWAT 
TTIPRI 
TTLOWAT 
TTOPRI 
TTYHOG 
UBMAP 
UDSA 
UISA 
UISD 
UMODE 
UMODE 
USER 
USIZE 
VTDELAY 
WAITING 
WCOM 
WLO 

wo 
WOPEN 
XTABS 


PWHOANA 
rw 


12 

5 

20 

o1 

04 

100 

3 

20 

1 

010 

6 

010 

02 

020 
0177570 
2 

040 
0104400 
5 
006000 
020 

o1 

50 

10 

30 

20 

256 
0170200 
0177660 
0177640 
0177600 
0170000 
0170000 
020 

16 
040000 
1 

02 
020000 
04 

02 

02 
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al 


a2 


aa 
abae 
abn 
abp 


ac 
access 


addr 


adev 
adx 
afp 
aip 
alloc 


an 
ap 


ARDY 
aretu 
arg 
ASLEEP 
atp 


av 
av_back 


av_forw 


1828 
2271 
2293 
1828 
1915 
2290 
2556 
5123 
7040 
5156 
5260 
5341 
8333 
3041 
5817 
7658 
8024 
8044 
8082 
8508 
8522 
4773 
4899 
2344 
2361 
7040 
6221 
6277 
6751 
6435 
6497 
6364 
1652 
1678 
1694 
1708 
1718 
3022 
3154 
3164 
5372 
0724 
3845 
7993 
8217 
8253 
8282 
8486 
8512 
8550 
8578 
8577 
4526 
5009 
4525 
4960 


1894 
2276 


1896 
2271 
2292 
2563 
5125 
7046 
5157 
5268 
5389 
8340 
3552 
6746 


8039 
8051 
8083 
8513 


4778 
4905 
2346 


7045 
6222 
6284 


6448 
6956 
6370 
1665 
1679 
1696 
1712 
1719 
3052 
3155 


0734 
3871 
8224 
8218 
8257 
8333 
8490 
8535 
8551 
8581 
8578 
4884 
5063 
4888 
5008 


1904 
2278 


1902 
2282 


5134 


5171 
5336 
5390 
8373 
4109 
7563 


8041 
8052 
8084 
8515 


4785 
4906 
2355 


6229 
6746 


6468 


1669 
1685 
1699 
1715 
1721 
3054 
3156 


2106 


8562 
8221 
8274 
8334 
8505 
8536 
8555 


8582 
4889 


4891 
5009 


1915 
2292 


1913 
2283 


5259 
5337 
5396 
8382 
5815 
7604 


8043 
8079 
8086 
8518 


4795 


2357 


6276 
6747 


6480 


1675 
1691 
1701 
1717 
1722 
3058 
3159 


2242 


8252 
8275 
8339 
8506 
8540 
8577 


5008 


4953 
5063 


backp 
backup 


bad 


badblock 
badtrap 
bap 


base 


bawrite 


bcopy 


bdevsw 


bdp 
bdwrite 


b£lg 


bflush 
bfreelist 


bigger 
binit 
blkno 


bmap 


bno 
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5235 
5470 
4872 
4890 
1009 
2812 
3042 
3093 
3193 
5284 
6629 
6766 
6970 
1465 
6419 
6479 
6499 
5264 
5291 
5308 
4845 
3238 
6976 
4617 
4785 
4906 
5212 
6722 
5060 
4836 
6485 
1049 
1204 
5229 
4567 
4884 
4954 
5063 
5071 
3375 
1614 
4754 
4781 
4921 
5209 
6248 
6225 
6256 
6298 
6417 
6451 
6464 
7046 
9029 
9055 
6958 


Code 


5236 


4884 


1012 


3055 
3103 
3548 
5293 
6715 
6777 
7008 
1468 
6437 
6484 
6506 
5269 
5305 


4856 
6124 
7019 
4622 
4795 
4934 
6113 
6926 
5076 
6311 
6500 
1060 
1238 
7230 
4878 
4891 
4955 
5068 
5235 
3386 
5055 
4758 
4799 
4938 


6298 
6239 
6258 
6304 
6423 
6455 
6478 
7047 
9032 
9059 
6967 
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5407 


4888 


1015 


3060 
3107 
3553 
5325 
6721 


7040 


6439 
6491 


5273 
5306 


6310 
6585 
7220 
4656 
4819 
5060 
6166 


5077 
6443 
6501 
1094 


4879 
4932 
4960 
5069 


4773 
4899 
4974 


6415 
6248 
6280 
6305 
6431 
6456 
6496 
9018 
9033 
9065 
6968 


5412 


4889 


1047 


3065 
3119 
5274 
6625 
6726 


6473 
6497 


5278 
5307 


6931 
7636 
4763 
4843 
5076 
6689 


6449 


1108 


4880 
4953 
5062 
5070 


4780 
4908 
5196 


7626 
6253 
6294 
6415 
6447 
6463 
7043 
9024 
9044 
9066 
6970 


bp 


6973 
7016 
2447 
2534 
2538 
2559 
2567 
2571 
2578 
2584 
3049 
3282 
4810 
4842 
4869 
4907 
4937 
4943 
4961 
4967 
4971 
4975 
4999 
5019 
5044 
5067 
5071 
5097 
5132 
5173 
5186 
5237 
5241 
5296 
5305 
5310 
5316 
5322 
5342 
5397 
5403 
5412 
5427 
5453 
5470 
6052 
6258 
6304 
6310 
6371 
6442 
6450 
6473 
6490 
6924 
6959 


6981 
7025 
2448 
2535 
2540 
2564 
2568 
2572 
2580 
2585 
3153 
3290 
4815 
4856 
4870 
4908 
4938 
4948 
4962 
4968 
4972 
4982 
5000 
5023 
5057 
5068 
5072 
5105 
5160 
5178 
5231 
5238 
5263 
5297 
5307 
5311 
5318 
5323 
5343 
5398 
5404 
5413 
5442 
5457 
5471 
6062 
6260 
6305 
6311 
6419 
6443 
6468 
6481 
6491 
6927 
6973 


7000 


2452 
2536 
2541 
2565 
2569 
2576 
2581 
3022 
3195 
3298 
4836 
4857 
4875 
4909 
4941 
4949 
4963 
4969 
4973 
4983 
5005 
5038 
5065 
5069 
5073 
5123 
5171 
5182 
5235 
5239 
5268 
5299 
5308 
5313 
5319 
5339 
5392 
5399 
5407 
5420 
5444 
5460 
6048 
6224 
6261 
6306 
6364 
6435 
6448 
6470 
6485 
6501 
6931 
6974 


7008 


2532 
2537 
2542 
2566 
2570 
2577 
2583 
3040 
3272 
4809 
4837 
4861 
4902 
4923 
4942 
4960 
4966 
4970 
4974 
4987 
5018 
5039 
5066 
5070 
5096 
5124 
5172 
5183 
5236 
5240 
5295 
5300 
5309 
5315 
5321 
5341 
5396 
5402 
5410 
5421 
5447 
5467 
6051 
6256 
6279 
6308 
6365 
6437 
6449 
6472 
6487 
6503 
6932 
6977 


bp1 
br4 


br5 
br6 
br7 


bread 


breada 
brelse 


bss 
buf 


buffers 
BUSY 
bwrite 


byte 
b_ addr 


6981 
7016 
7082 
7112 
7221 
7400 
7440 
7602 
7636 
7664 
8300 
8315 
8322 
8278 
0526 
0541 
0544 
0534 
0512 
0516 
0547 
3282 
6116 
6488 
7319 
7625 
4773 
3195 
4848 
6062 
6261 
6503 
7324 
7602 
1237 
4520 
4526 
4557 
4756 
4837 
4870 
4983 
5019 
5097 
5157 
5260 
5387 
5423 
4720 
7992 
3239 
5241 
1220 
3049 
4529 
5136 


6982 
7017 
7083 
7205 
7379 
7417 
7524 
7623 
7655 
8277 
8301 
8316 
8323 
8319 
0527 


0535 
0513 
0517 
0548 
4754 
6258 
6927 
7386 


6256 
3298 
4869 
6118 
6308 
6932 
7332 
7624 
1463 
4523 
4535 
4558 
4775 
4839 
4872 
4985 
5021 
5101 
5160 
5263 
5390 
5442 
5067 
8617 
4809 
7021 


3153 
5044 
5210 


6984 
7021 
7097 
7216 
7386 
7426 
7590 
7624 
7656 
8291 
8310 
8319 


8322 
0530 


0514 
0518 
0549 
4799 
6305 
6973 
7426 


4791 
5028 
6129 
6481 
6977 
7436 
7656 


4524 
4555 
4567 
4810 
4857 
4902 
5000 
5057 
5124 
5183 
5337 
5392 
5453 


8691 
4863 
7221 


3238 
5067 
5305 


7002 
7069 
7098 
7220 
7387 
7427 
7601 
7625 
7662 
8298 
8312 
8320 


0531 


0515 
0538 


6051 
6472 
7097 
7431 


4822 
5073 
6172 
6487 
7112 
7440 


4525 
4556 
4721 
4812 
4859 
4923 
5002 
5065 
5128 
5231 
5339 
5421 
6365 


4963 
7400 


3290 
5107 
5307 
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B_ASYNC 


b back 


b blkno 


B_BUSY 


B DELWRI 


b dev 


B_ DONE 


b error 
B_ ERROR 
b error 
B_ ERROR 
b_ error 
B_ ERROR 
b flags 


b_ forw 


B MAP 
B PHYS 
B_ READ 


B_RELOC 


6052 
6437 
6935 
7174 
7387 
7636 
4584 
4887 
4524 
4970 
5070 
2454 
4974 
5428 
6484 
4576 
5010 
5202 
5299 
4586 
4961 
2453 
4883 
5066 
5399 
4574 
4817 
5214 
4532 
4575 
5311 
5342 
5343 
5403 
4522 
4783 
4817 
4878 
4941 
4962 
5024 
5072 
5186 
5295 
5318 
5403 
4523 
4967 
4972 
5071 
4579 
4577 
2034 
4783 
5140 
4583 


6124 
6473 
6974 
7212 
7427 


4793 
4962 
4556 
4971 
5080 
4531 
5209 
6442 
6498 
4887 
5072 
5206 
5321 
4817 
5237 
4527 
4908 
5207 
5429 
4759 
4847 
5315 


4817 


5467 
4759 
4790 
4847 
4879 
4942 
4966 
5026 
5111 
5200 
5296 
5321 
5467 
4555 
4968 
5062 
5079 
5024 
5206 
2042 
4793 
5479 
4966 


6125 
6491 
7017 
7220 
7432 


4820 
5027 
4967 
5062 


4908 
5309 
6450 


4941 
5165 
5219 


4823 


4819 
4938 
5238 
5431 
4782 
4989 


4882 


7323 
4761 
4793 
4862 
4882 
4954 
4989 
5027 
5140 
5237 
5299 
5342 
7323 
4907 
4969 
5069 


5172 
5299 
4573 
4817 
6260 


6371 
6931 
7098 
7328 
7433 


4862 
5239 
4968 
5068 


4938 
5402 
6470 


4966 
5169 
5295 


4847 


4843 
4973 
5300 


4790 
5026 


5220 


4782 
4816 
4876 
4887 
4961 
5010 
5030 
5172 
5239 
5315 
5397 


4937 
4971 
5070 


5186 
5397 
4761 
5111 


b resid 
B WANTED 


b_ weount 


B WRITE 
b _xmem 


cl 


c2 

call 
calll 
callo 
callout 
callp 
CANBSIZ 
canon 


canonb 


CAP 
CARR ON 


cblock 
ce 


ccc 


ccp 


cdevsw 


cdp 

CEOT 
CERASE 

cf 

cfree 
cfreelist 


chan 


chdir 
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4533 
4581 
4887 
5166 
5219 
4528 
4818 
5310 
4572 
6386 
4530 
5173 
8881 
8887 
8929 
8881 
8902 
0555 
0567 
0752 
0762 
0260 
0265 
3768 
2696 
2762 
0140 
8274 
0202 
8320 
8840 
7990 
8556 
8140 
8237 
8635 
8830 
8835 
8937 
8950 
8236 
8246 
4635 
6287 
8238 
8238 
7955 
7954 
8636 
8146 
0928 
0979 
8241 
2066 
2118 
2924 


Code 


5322 
4876 
4942 
5187 
5296 
4762 
5108 


5486 


5110 
5178 
8883 
8911 
8930 
8890 
8906 
0558 
0570 
0776 
0771 
3727 
3748 
3773 
2754 
2765 
0202 
8543 
8291 


8884 
8046 


8141 


8731 
8981 
8910 
8941 
8954 
8239 
8247 
4641 
6685 
8245 
8245 
8306 
8048 
8831 
8239 
0954 
0986 
8242 
2076 


3538 
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4878 
4954 
5203 
5318 
4784 
5137 


6306 


5134 
5211 
8885 
8915 
8959 
8894 
8909 
0561 
0574 
2669 


3847 
3750 
3853 
2755 
2771 
8316 


8300 


8285 


8146 


8743 
8988 
8918 
8942 
8955 
8240 


4669 
6716 


8240 
0955 
0988 


2089 


4879 
5030 
5216 
5321 
4794 
5208 


6373 
5139 
5308 
8886 
8928 
8898 
0564 
0577 
2771 
3767 


2761 


8316 


8541 
8149 
8754 
8935 
8946 
8962 
8244 


6234 
8213 


0977 
8149 


2113 


chmod 
chown 
cinit 
CINTR 
CKILL 

cl 
clearseg 


clist 


clock 
CLOCK1 
CLOCK2 
cloop 
close 
CLOSED 
closef 
closei 
clrbuf 
CMAPSIZ 
colp 


com 


cont 
copsu 
copyin 
copyout 
copyseg 


core 
coreaddr 
coremap 


count 


cp 


cpl 
cp2 


2927 
2928 
1613 
7958 
7956 
8637 
0675 
3395 
7908 
8634 
0569 
1509 
1510 
7542 
2918 
8609 
3230 
6656 
5038 
0141 
8378 
8404 
8436 
8454 
5102 
5115 
5142 
7106 
1245 
1243 
1243 
0695 
3380 
4076 
5196 
0203 
2278 
4383 
2668 
5208 
3025 
3153 
3187 
4024 
6052 
6372 
6390 
6931 
6937 
7417 
7431 
7572 
7645 
8241 
7480 
7480 


3560 
3575 
8234 
8344 
8049 
8832 
0676 
4155 
7928 
8643 
0570 
1601 
1603 
7667 
5846 
8653 
5854 
6672 
6982 
0203 
8400 
8423 
8442 
8458 
5109 
5129 
5143 
7110 
1253 
1244 
1252 
0696 
3392 
4094 
5210 
1568 
2282 
4497 
2762 
6585 
3049 
3161 
4018 
4026 
6059 
6374 
6394 
6933 
6938 
7427 
7438 
7573 
7646 
8242 
7483 
7484 


8345 


1566 


7929 
8644 
3725 


8675 
6643 


8401 
8429 
8443 
8459 
5112 
5138 


1264 
6374 
1630 
1915 
4152 


5211 
1896 
2293 


2765 
6592 
3061 
3162 
4021 
4028 
6367 
6376 
6924 
6935 
6939 
7428 
7523 
7576 
8237 


7485 
7485 


3134 


7930 


8402 
8435 
8448 
8475 
5114 
5141 


6376 
2292 


1982 
3241 


5196 


3072 
3186 
4022 
6048 
6371 
6377 
6928 
6936 
6940 
7429 
7570 
7577 
8240 


cpass 


cputype 


CQUIT 
CRDELAY 
creat 
cret 
CRMOD 
csv 
CTLRDY 


ctype 
curpri 
c_arg 
c_ce 
c cf 


ec cl 
c func 


c next 
c_time 


data 
dev 


devblk 


6388 
8874 
0208 
1655 
5162 
7957 
7976 
2920 
1429 
7970 
1419 
5374 
8379 
8441 
8468 
0222 
0263 
3871 
7910 
8543 
7911 
7912 
0264 
3770 
3865 
8141 
0262 
3769 
3859 
1457 
2433 
2702 
4758 
4780 
4799 
4921 
4938 
5259 
5483 
6685 
6716 
6970 
7000 
7040 
7078 
7134 
7178 
7314 
8030 
8042 
8063 
8072 
8093 
8863 
9042 
5096 


6542 
9057 
1459 
1746 


8344 


5781 
1430 
8047 
1420 
5462 
8424 
8445 
8469 
2141 
3770 


8074 
8544 


3748 
3774 
3870 
8241 
3751 
3775 
3864 


2436 
2718 
4763 
4781 
4901 
4927 
4973 
5300 
5486 
6689 
6722 
6973 
7004 
7048 
7097 
7138 
7276 
7319 
8033 
8055 
8066 
8078 
8648 
9016 
9047 
5106 


8558 


1461 
1756 


8342 


8426 
8452 
8472 
2165 
3776 


8223 
8560 


3751 
3855 


3753 
3855 
3869 


2693 
3725 
4776 
4788 
4905 
4931 
5229 
5476 
6676 
6706 
6956 
6981 
7008 
7067 
7104 
7167 
7286 
8023 
8039 
8057 
8067 
8081 
8669 
9021 
9064 
5123 


8705 


1571 
5133 


8412 


8440 
8453 


2224 
3866 


8349 


3769 
3861 


3767 
3856 


2700 
4754 
4778 
4789 
4908 
4934 
5238 
5479 
6679 
6709 
6961 
6988 
7016 
7072 
7120 
7173 
7296 
8026 
8040 
8062 
8070 
8090 
8850 
9031 


5135 
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deverror 
devloc 


devstart 
devtab 


DIRSIZ 


display 
DLBASE 
dn 


DONE 


dp 


dpadd 


dpcmp 
DRESET 
DRY 

ds 


DSRDY 
dump 


dup 
d_actf 


d_ active 


d_actl 
d_close 


2447 
5096 
5125 
5096 
4551 
5058 
0107 
3526 
7576 
7638 
0888 
8010 
6226 
6250 
6281 
6305 
7980 
8714 
1652 
1680 
1700 
1718 
4843 
4907 
4935 
4971 
5078 
5104 
5115 
5136 
7431 
7521 
7551 
7604 
7626 
7663 
1318 
3295 
5895 
1326 
5990 
5369 
5371 
3023 
3138 
8013 
0521 
1355 
2953 
4557 
5457 
4553 
5458 
4558 
4619 
6689 


5460 
5098 
5131 
5447 
4840 
5386 
0429 
7484 
7589 
7645 
0890 
8043 
6243 
6252 
6300 


8518 
8815 
1666 
1684 
1707 
1720 
4844 
4924 
4937 
4972 
5079 
5106 
5127 
5137 
7432 
7531 
7559 
7606 
7658 
7664 
1319 
3296 
5986 
1327 
6243 


3117 
3149 
8051 
0523 


6069 
5409 
5470 
5414 


5412 
4637 


5104 


4903 


0433 
7486 
7608 


3740 


6245 
6256 
6302 


8616 
8971 
1668 
1690 
1711 
1722 
4903 
4932 
4969 
5058 
5080 
5107 
5131 
5143 
7433 
7533 
7563 
7609 
7660 
7665 
3292 
5756 
6382 
5988 
6312 


3118 


1352 


5410 


5446 


5413 
6166 


5123 


4924 


3524 
7572 
7637 


6247 
6258 
6304 


8691 


1674 
1695 
1716 
4840 
4906 
4934 
4970 
5077 
5100 
5108 
5135 
7418 
7436 
7534 
7589 
7625 
7662 
7670 
3293 
5890 
9051 
5989 


3131 


1353 


5444 


5455 


6685 
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derrent 4554 
d_ major 2436 
4795 
4927 
6192 
6710 
d_minor 2436 
5429 
8039 
8063 
8093 
9064 
d_open 4618 
6716 
d_read 4638 
d_sgtty 4640 
d_strategy4620 
4819 
d_tab 4621 
5077 
d_write 4639 
E2BIG 0473 
EACCES 0479 
EAGAIN 0477 
EBADF 0475 
EBIT 2658 
EBUSY 0481 
ECHILD 0476 
ECHO 7969 
ED 0318 
edata 0611 
EEXIST 0482 
EFAULT 0466 
6551 
EFBIG 0492 
EINTR 0470 
EINVAL 0487 
EIO 0471 
8854 
EISDIR 0486 
EJECT 8842 
EJLINE 8820 
eloop 7592 
else 1659 
2579 
3792 
4823 
5113 
5748 
6107 
6304 
6392 
6522 
8308 
8662 
EMFILE 0489 


Code 


5463 
4606 
4819 
4934 
6234 
6926 
4605 
5431 
8040 
8067 
9021 


4636 
6722 
6234 
8213 
4763 
5212 
4843 


6287 
3064 
6778 
3330 
5740 
2753 
6135 
3317 
8047 
1711 
0651 
5930 
5326 
7695 
6424 
2773 
3620 
4193 


5819 
8857 
8927 
7643 
1909 
2764 
3815 
4846 
5141 
5750 
6251 
6308 
6471 
6549 
8444 
8677 
6833 
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5469 
4763 
4843 
6113 
6287 
8213 
4883 
8026 
8042 
8072 
9031 


5076 
6926 


4785 


4906 


6630 
2776 
6163 


8361 


5960 
6378 


6157 
5344 


8923 


7647 
2087 
3098 
4445 
4933 
5411 
5754 
6257 
6310 
6486 
7394 
8471 
8729 


4785 
4906 
6166 
6680 


5399 
8030 
8057 
8081 
9047 


6113 
8245 


4795 


4934 


6524 


8751 


8927 


2575 
3100 
4792 
5029 
5432 
5879 
6301 
6375 
6502 
7608 
8523 
8886 


EMLINK 
end 
ENFILE 
ENODEV 
ENOENT 
ENOEXEC 
ENOMEM 
ENOSPC 
ENOTBLK 
ENOTDIR 
ENOTTY 
ENXIO 


eo 


EOF 
ep 


EPERM 
EPIPE 
EROFS 
err 


error 
ERROR 
esc 
ESPIPE 


ESRCH 
estabur 


ETXTBSY 
EVENP 
EXDEV 
exec 
execnt 


exit 


expand 


EXPRI 
extern 


falloc 
fetch 


ff 
file 


0496 
0611 
0488 
0484 
0468 
0474 
0478 
0493 
0480 
0485 
0490 
0472 
8654 
7524 
7641 
8612 
7418 
7435 
0467 
0497 
0495 
0855 
1658 
4219 
4248 
8618 
8750 
8891 
8908 
0494 
0469 
1629 
3152 
4460 
0491 
7973 
0483 
2923 
0210 
3196 
3209 
4278 
1628 
3383 
4473 
3018 
1552 
4097 
5912 
6184 
5827 
1051 
1222 
4368 
5507 
6854 


5918 
0632 
6863 
6569 
7538 
3102 
1728 
6989 
6190 
3547 
8210 
6193 


7588 
7642 
8689 
7432 


6816 
7827 
6755 
0872 
1661 
4226 
4260 
8691 


8895 


5870 
3652 
1650 
3371 


3106 


5937 
3020 
3037 
3197 
3219 


2268 
3387 


3038 
3026 
4925 
5955 
6794 
6847 
1173 


4382 
5513 
8204 


0654 
7311 


7612 


7121 


7560 


6727 


7607 


8728 
7433 


0880 
1663 
4234 
4281 
8722 


8899 


4177 
3118 
4120 


6759 


3038 
3198 
4032 


3129 
4148 


3513 
5768 
6031 
8650 
7731 
1180 


5807 


8027 


7608 


7434 


1656 
1727 
4241 
8727 


8903 


3138 
4146 


3039 
4080 
3132 
4459 


3541 
5784 
6091 


7737 
1184 


6849 


filsys 
flag 


flushtty 
fmt 

fork 
FORM 


found 
found1 


found2 
fp 


FPIPE 
FREAD 


free 
from 


5561 
4813 
6364 
7537 
8648 
8833 
8863 
8927 
8227 
2340 
2914 
8847 
8928 
3329 
6156 
1994 
1983 
5198 
5204 
5216 
5733 
5746 
5752 
5807 
5836 
5854 
5869 
5895 
6018 
6073 
6621 
6643 
6854 
6858 
6961 
6967 
6975 
6983 
7005 
7010 
7015 
7022 
7042 
7072 
7077 
7107 
7117 
7139 
7758 
7809 
5519 
7746 
5517 
5814 
7000 
6585 


7042 
4816 
6373 
7603 
8652 
8850 
8866 
8936 
8252 
2341 
3322 
8859 
8930 
3333 
6160 
2021 
2031 
5200 
5206 
5217 
5736 
5748 
5754 
5827 
5848 
5864 
5889 
5901 
6019 
6074 
6626 
6644 
6855 
6859 
6962 
6970 
6976 
6987 
7006 
7011 
7018 
7023 
7045 
7073 
7084 
7108 
7118 
7141 
7759 
8204 
5746 
7748 
5713 
5829 
7435 
6586 


4820 
6386 
7657 
8669 
8853 
8884 


8346 
2348 


8865 


4176 


5202 
5214 
5219 
5737 
5749 
5755 
5829 
5850 
5866 
5890 
5902 
6021 
6078 
6627 
6648 
6856 
6860 
6963 
6971 
6978 
7002 
7007 
7012 
7019 
7025 
7047 
7074 
7094 
7113 
7136 
7143 
7763 
8206 
5869 


5747 
7748 
7438 
6590 


4823 
7518 
8023 
8671 
8857 
8923 


8350 
2353 


8921 


4180 


5203 
5215 
5220 
5739 
5751 
5756 
5830 
5851 
5867 
5894 
6016 
6071 
6079 
6628 
6849 
6857 
6959 
6965 
6972 
6979 
7004 
7008 
7014 
7020 
7026 
7069 
7076 
7096 
7116 
7138 
7144 
7805 
8208 
6649 


5753 


7442 
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fstat 
fubyte 


fuibyte 
fuiword 
fun 
func 


fuword 


FWRITE 


£ count 


£ flag 


f£ inode 


£ offset 


getblk 


getc 


geterror 
getf 


getfs 


getgid 
getmdev 
getpid 
getswit 
getuid 
gid 


GO 


grow 
gtime 
gtty 

gword 
hbcom 


2940 
0807 
6550 
0809 
9034 
0813 
2734 
4220 
3845 
7518 
7574 
0811 
2763 
8189 
5518 
5816 
7746 
1878 
6655 
7739 
5509 
5869 
7748 
5511 
5894 
6656 
7810 
5512 
5889 
6858 
7774 
3040 
4789 
6928 
0926 
8264 
8673 
4824 
5736 
6073 
6754 
7138 
2959 
6093 
2932 
2950 
2936 
3462 
3467 
5095 
5461 
2813 
2925 
2944 
0818 
5096 


6014 
0815 
7693 
0814 


0844 
2754 


3870 
7519 
7579 
0845 
3052 
8190 
5722 
5829 


5510 
6657 


5739 
6649 


5754 
5895 
7747 
8208 
5751 
5890 
6859 
7796 
3237 
4921 
6981 
0930 
8292 
8688 
4992 
5850 
6619 
6961 
7167 
3472 
6151 
3480 
3413 
3452 
3464 


5109 


4056 
3420 
8165 
0830 
5109 


3058 


1564 


1602 
2756 


7532 
8510 
0847 
4227 


5793 
5832 


5836 
6855 


5746 
6656 


5755 
6021 
7749 


5752 
5901 
7772 
7798 
4758 
6123 
7016 
8258 
8520 
8714 
5323 
5866 
8206 
7004 
7383 


6181 


3465 


5138 


4136 


0848 


4225 


4218 


1604 
2766 


7536 
8515 
2758 
8188 


5795 
6656 


6079 
6857 


5829 
7746 


5830 
6650 
7764 


5756 
5902 
7773 


4781 
6304 
7216 
8259 
8544 
8971 
5336 
6018 


7072 


3466 


5368 


0851 


hibyte 


httab 
HUPCL 
HZ 
TAcc 


IALLOC 
ialloc 
IALLOC 
ialloc 
IALLOC 
icode 
idle 
IENABLE 


IEXEC 


IFBLK 


IFCHR 


IFDIR 


IFMT 


ifree 
iget 


iinit 
ILARG 


ILOCK 


IMOUNT 
incore 
incupc 
IND 
info 
ino 


inode 
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0180 
8585 
4728 
7966 
0147 
5681 
7391 
5620 
7067 
7463 
7728 
7752 
1516 
1283 
5092 
7981 
8659 
8814 
3041 
6764 
5624 
6242 
6719 
5623 
6286 
7421 
3522 
5818 
3041 
5621 
6189 
6297 
8209 
7134 
1616 
7276 
1615 
5625 
7425 
1617 
7224 
7316 
7888 
5682 
4780 
0894 
8844 
8142 
7070 
7100 
7143 
7315 
5605 
6161 
6282 
7105 


Code 


3456 
8593 
4844 


3797 
6232 
7462 
5687 
7459 


1630 
1284 
5109 
8051 
8663 
8858 
3552 
6765 
5691 
6297 
7421 
5690 
6314 
8209 
3546 
5921 
3522 
5688 
6233 
6682 


7355 
1618 
7534 
6922 
5692 
7445 
1619 
7225 
7351 


6130 
4788 
0895 
8857 


7077 
7105 
7276 
7319 
5659 
6222 
6416 
7203 
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3476 


3800 
6285 
7751 


2220 
5138 
8052 
8692 


5631 
7563 
6100 
6314 


6100 
6684 


5622 
7559 
3546 
5818 
6242 
6711 


3519 
7664 


6427 


5679 
7287 
7868 


6168 
4899 
3791 
8936 


7078 
7107 
7286 
7328 
5675 
6227 
6793 
7223 


3582 


7382 


2423 
5370 
8615 
8732 


5698 


6189 
6688 


6233 
6713 


5689 


4110 
5921 
6286 
7559 


7078 


6444 


5926 
7303 
7872 


7292 


7095 
7134 
7297 


6147 
6277 
7104 
7278 


inta 
integ 


Io 
iodone 
iomove 
iowait 
ip 


7285 
3921 
0175 
3416 
4892 
8266 
0641 
5018 
6260 
4764 
3024 
3090 
3171 
3177 
3185 
3194 
3522 
3540 
3549 
3562 
3570 
3581 
4096 
4106 
4118 
4405 
4433 
4464 
5771 
5787 
5795 
5911 
5921 
5941 
5958 
5969 
6034 
6046 
6053 
6098 
6131 
6162 
6170 
6187 
6194 
6233 
6248 
6259 
6286 
6300 
6315 
6416 
6440 
6451 
6467 
6651 


7345 
4235 
2070 
3852 
5006 


5404 
6306 
4800 
3034 
3105 
3173 
3182 
3189 
3512 
3529 
3543 
3552 
3564 
3571 
3582 
4101 
4109 
4124 
4406 
4434 
4470 
5774 
5790 
5804 
5914 
5926 
5942 
5959 
5972 
6036 
6050 
6055 
6100 
6137 
6167 
6172 
6189 
6227 
6234 
6250 
6282 
6287 
6302 
6316 
6422 
6442 
6452 
6470 
6652 


7521 
4254 
2095 
3872 
5011 


5471 
6364 
4821 
3035 
3130 
3174 
3183 
3190 
3519 
3530 
3544 
3555 
3566 
3577 
3583 
4102 
4110 
4126 
4410 
4446 
5767 
5783 
5791 
5805 
5915 
5935 
5945 
5966 
6030 
6037 
6051 
6089 
6121 
6147 
6168 
6183 
6191 
6229 
6242 
6252 
6284 
6297 
6312 
6318 
6427 
6444 
6456 
6646 
6653 


8205 


2391 
4885 
8262 


4982 
3041 
3142 
3176 
3184 
3191 
3520 
3534 
3546 
3556 
3569 
3579 
3584 
4105 
4112 
4399 
4411 
4454 
5770 
5786 
5793 
5811 
5917 
5940 
5954 
5967 
6033 
6045 
6052 
6097 
6130 
6161 
6169 
6186 
6192 
6232 
6243 
6255 
6285 
6298 
6314 
6415 
6439 
6447 
6466 
6650 
6672 


ipl 


ip2 


ipe 


IPCPRI 
iput 


6673 
6708 
6758 
6774 
6799 
6974 
7017 
7078 
7085 
7203 
7217 
7223 
7227 
7294 
7307 
7324 
7415 
7426 
7457 
7463 
7467 
7482 
7733 
7750 
7764 
7776 
7787 
7799 
7817 
7836 
7848 
7852 
7882 
8208 
7280 
7387 
7395 
7279 
7378 
3939 
4184 
4190 
4195 
4213 
4227 
4242 
4264 
4282 
3914 
3194 
3549 
4126 
5936 
6137 
6802 
7490 


6678 
6749 
6764 
6793 
6801 
6975 
7018 
7079 
7091 
7212 
7218 
7224 
7281 
7295 
7309 
7328 
7420 
7430 
7459 
7464 
7468 
7725 
7741 
7751 
7768 
7777 
7789 
7807 
7825 
7837 
7849 
7862 
7883 
8209 
7328 
7390 
7397 
7329 
7388 
4181 
4185 
4191 
4209 
4218 
4232 
4247 
4266 


4182 
3232 
3554 
4411 
5945 
6169 
7091 
7663 


6702 
6751 
6769 
6796 
6802 
6976 
7019 
7081 
7098 
7213 
7219 
7225 
7284 
7296 
7319 
7332 
7423 
7442 
7460 
7465 
7477 
7728 
7747 
7752 
7772 
7778 
7790 
7810 
7826 
7838 
7850 
7863 
7887 
8213 
7331 
7392 
7398 
7330 
7389 
4182 
4186 
4192 
4211 
4220 
4235 
4249 
4268 


4190 
3533 
3571 
5839 
5972 
6194 
7325 
7670 


6703 
6754 
6771 
6798 
6959 
7002 
7069 
7082 
7101 
7214 
7220 
7226 
7293 
7306 
7323 
7414 
7424 
7443 
7462 
7466 
7478 
7729 
7749 
7761 
7775 
7786 
7797 
7815 
7835 
7845 
7851 
7867 
8205 


7378 
7393 


7331 
7390 
4183 
4189 
4194 
4212 
4225 
4240 
4254 
4273 


3534 
3584 
5931 
6037 
6691 
7344 
7733 
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ip_addr 


ip data 


ip_lock 
ip_req 
IREAD 
ISGID 
ISOPEN 
issig 


ISUID 
ISVTX 


ITEXT 


itrunc 
IUPD 


iupdat 
IWANT 


IWRITE 


i_addr 


i_atime 
i_count 


i_dev 


i_flag 


7741 
3937 
4225 
4242 
3938 
4227 
4264 
3935 
4209 
3936 
4211 
5629 
7789 
3176 
7987 
2073 
3991 
3171 
3568 
5790 
3105 
6758 
4112 
3530 
5942 
6467 
7462 
6050 
5683 
7890 
4109 
6651 
7776 
5613 
6192 
6302 
6447 
6470 
6710 
7423 
5614 
1883 
6100 
7317 
7787 
3519 
6053 
6422 
7314 
7426 
7442 
7662 
1617 
3570 
5661 
6168 


4185 
4227 
4247 
4184 
4235 
4266 
4181 


4186 
4212 
5696 
7850 
5627 
8045 
2085 


5626 
4406 


4410 


5825 
3570 
6285 
7382 
7609 
7226 
7288 


5630 
6753 
7777 
5672 
6234 
6439 
6451 
6679 
7082 
7430 


3105 
6681 
7350 
7825 
5663 
6162 
6754 
7355 
7431 
7459 


1619 
3583 
5926 
6232 


4218 
4232 
4249 
4191 
4242 
4268 
4183 


4189 
4282 
5815 
7851 
5694 
8046 
2821 


5693 
5628 


4471 


7353 
3583 
6318 
7396 
7751 
7357 
7869 


5697 
7604 
7836 
5969 
6252 
6440 
6456 
6680 
7330 
8213 


4472 
7302 
7362 


5935 
6250 
7104 
7383 
7435 
7534 


3105 
4410 
5942 
6285 


4220 
4240 
4254 
4220 
4249 
4273 
4194 


4192 


6651 


3826 


5695 


5684 


7414 
5680 
6452 
7448 


7374 
7889 


5817 
7658 


6191 
6287 
6442 
6466 
6709 
7389 


5662 
7306 
7750 


6051 
6300 
7286 
7386 
7438 
7625 


3530 
4471 
6130 
6318 


i_gid 


i_lastr 
i_mode 


i_mtime 
i_nlink 


i_number 


i_sized 


i_sizel 
i_uid 


jflg 
jmp 
jsr 


ka6 


kill 
KISAO 
KISA6 
KISDO 
KL 


k111 


KLADDR 
KLBASE 
klclose 
klin 
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6452 
7225 
7303 
7382 
7462 
7869 
7890 
3177 
6771 
5673 
3041 
3546 
4406 
5921 
6242 
6427 
6711 
7082 
7421 
7559 
7789 
8209 
5615 
3529 
5941 
5664 
7105 
7360 
5611 
6312 
5612 
6312 
7772 
3173 
5668 
7070 
1018 
0522 
0558 
0570 
7070 
0322 
1589 
9065 
2949 
0619 
1368 
0620 
0165 
2399 
8015 
8067 
8008 
8009 
4671 
0558 


Code 


6467 
7287 
7316 
7391 
7609 
7872 


3582 
7466 
6255 
3171 
3566 
5607 
6100 
6286 
6444 
6764 
7329 
7425 
7752 
7836 


5608 
7352 
6051 
7286 
7385 
5670 
6315 
5671 
6316 
7775 
3174 
6769 
7099 
1193 


0561 
0574 
7103 
1459 
1599 


3630 


1460 


2393 
2406 
8030 
8072 
8039 
8041 
8055 
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6758 
7288 
7351 
7396 
7751 
7888 


5610 


6259 
3176 
3569 
5666 
6189 
6297 
6651 
6774 
7354 
7445 
7776 
7850 


5667 
7464 
6052 
7315 
7482 
5894 
7446 
5895 
7447 
7835 
3581 
6798 
71021 
1239 


0564 
0577 
7104 
1460 
2716 


2397 


8057 
8081 
8041 
8043 


7224 
7292 
7359 
7448 
7868 
7889 


5669 


7318 
3522 
4110 
5818 
6233 
6314 
6682 
7081 
7388 
7463 
7777 
7851 


5917 


6162 
7355 
7534 
6243 


6243 
7589 
7845 
5609 
7465 


0567 
7105 


1560 
9032 


2398 


8063 
8093 


klopen 4671 
klou O561 
klrbuf 8018 
klresr 8017 
klread 4671 
klregs 8016 
klrint 0557 
klsgtty 4671 
kltbuf 8020 
kltcsr 8019 
klwrite 4671 
klxint 0560 
kwlp 0570 
1 2354 
large 6445 
lbn 6225 
6259 
lbolt 0212 
4925 
LCASE 7968 
8399 
ldiv 1392 
5434 
7589 
link 2921 
lks 0226 
1604 
lobyte 0180 
3464 
8584 
loop 1951 
2048 
2362 
3315 
4945 
5242 
7283 
7791 
8290 
lp11 8837 
8884 
8924 
8931 
8941 
8952 
8960 
8982 
LPADDR 8812 
8972 
lpbuf 8825 
lpcanon 8859 
8909 
lpclose 4675 
LPHWAT 8819 
lpint 0573 
LPLWAT 8818 


8023 


8083 
8051 
8062 


0558 
8090 
8086 
8052 
8066 
0561 


6462 
6239 
6280 
3797 
8650 
8047 


1393 
6051 
7626 
5909 
1601 
1607 
3443 
3465 
8592 
1957 
2195 
3245 
4020 
4957 
7075 
7290 
7812 
8305 
8853 
8910 
8925 
8935 
8942 
8954 
8962 
8988 
8853 


8972 
8865 


8863 
8988 
0574 
8981 


8084 


8078 


8070 


6248 


3800 
8660 
8309 


2373 
7319 


1602 
3734 
3444 
3475 


1969 
2221 
3260 
4030 
4964 
7092 
7298 
7839 


8857 
8918 
8926 
8936 
8946 
8955 
8971 
8989 
8858 


8875 


8976 


6255 


3808 


8353 


4143 
7386 


1603 


3455 
3581 


2025 
2347 
3276 
4930 
5233 
7119 
7765 
7854 


8866 
8923 
8927 
8937 
8950 
8957 
8981 
8990 
8971 


8879 


lpopen 
lpou 
lpoutput 


LPPRI 
lpsr 
lpstart 
lpwrite 
lrem 


lshift 


main 
maj 


maknode 
malloc 


map 


mapalloc 
mapfree 
maplock 


maptab 
max 

MAXCOL 
MAXMEM 
maxmem 
MAXMEM 
maxmem 
mcc 


mfree 


min 


mknod 
mlc 


mmread 
mmwrite 


mode 


mount 


mp 


4675 
0574 
8929 
8986 
8817 
8824 
8967 
4675 
1400 
6052 
1409 
6294 
0611 
6676 
6706 
6720 
4105 
1896 
3234 
2515 
2559 
5156 
5025 
5155 
5169 
8117 
6326 
8821 
0135 
0224 
1582 
1582 
8834 
8952 
1568 
2293 
4383 
1582 
6339 
2926 
8836 
8931 
4682 
4682 
5731 
6746 
0272 
6148 
7169 
7281 
2528 
2557 
6103 
6116 
6148 
6170 


8850 


8951 


8989 
8853 
8980 
8870 
1401 
7328 
1410 
9024 
0669 
6680 
6710 
6722 
5790 
1982 
4375 
2529 


5398 
5182 
5165 
5187 
8309 
8443 
8954 


1567 


1662 
8924 
8955 
1583 
2556 
4408 
6241 
7846 
5952 
8924 


9016 
9042 
5735 
6752 
0277 
6154 
7172 
7293 
2529 
2564 
6104 
6118 
6154 
6171 


8956 


8858 
8992 


2375 
7387 
5309 
9055 
1550 
6685 
6714 


5966 
2282 
4457 
2532 


5166 
5188 
8311 


1576 


8925 
8957 
2044 
3241 
4497 
6247 


8926 


5804 
7455 
6090 
6933 
7204 
7294 
2534 
2565 
6105 
6124 
6155 
7204 


8959 


8971 


5433 


6239 


6689 
6716 


7455 
2528 


2557 


5167 
5189 


8950 
8960 
2278 
3283 


6296 


8927 


5812 
7463 
6103 
6934 
7210 


2556 
6090 
6109 
6129 
6167 
7210 
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mpid 


MTC 
m_addr 


m_bufp 


m_ dev 


m_inodp 
m size 


nl 
n2 
na 


namei 


nb 


nblkdev 
nbp 


NBUF 
ne 


NCALL 
nchrdev 
NCLIST 
nd 


NDL11 
newproc 
newsize 


NEXEC 
NFILE 
nice 
NINODE 
NKL11 


NLDELAY 


7211 
0216 
1849 
1373 
2518 
2564 
2576 
0275 
6125 
6933 
7212 
0274 
6934 
0276 
2517 
2542 
2568 
2578 
7170 
7170 
3022 
3156 
3034 
5770 
5958 
6796 
5265 
5306 
6450 
6472 
6498 
4631 
6720 
6420 
6490 
0130 
3022 
3071 
0143 
4647 
0146 
1650 
1683 
1692 
8012 
1627 
2268 
2282 
0134 
0132 
2946 
0131 
7223 
8011 
8043 
7974 


7212 
1841 
1867 


2536 
2565 
2577 
6104 
6155 
7173 


6105 
7173 
6121 
2534 
2564 
2569 
2583 
7175 
7176 
3050 
3158 
3515 
5786 
6033 
7518 
5278 
6419 
6451 
6479 
6499 
4927 


6480 
6497 
4535 
3051 
3073 
0265 
6714 
8146 
1657 
1687 


8015 
1826 
2275 


3037 
5513 
3493 
5675 
7285 
8015 


7216 
1842 


2537 
2567 
2580 
6123 
6170 
7174 


6122 
7216 
6167 
2535 
2565 
2572 
2584 
7177 
7177 
3053 


3543 
5914 
6097 


5283 
6447 
6457 
6488 
6507 
5084 


6484 
6498 
4720 
3062 
3154 


8247 
8240 
1660 
1689 


8026 
3334 
2277 


3196 
6854 


6161 


8026 


1843 


2541 
2571 
2581 
6124 
6171 
7211 


6155 
7296 
7295 
2538 
2566 
2576 


3154 


4101 
5928 
6186 


5292 
6448 
6466 
6497 


6192 
6488 
6500 
5064 


3063 
3157 


1662 
1690 


2278 


7103 


8042 


NMOUNT 


NODEV 
nodev 


NODEV 
nodev 
NODEV 
nofault 


NOFILE 


nospace 
nosys 


notavail 
notavil 
NPROC 


nps 
NRK 
NRKBLK 
ns 


nseg 


NSIG 


nswap 
nt 


NTEXT 
NULL 
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0133 
7172 
0105 
4659 
4663 
4675 
4680 
4686 
4690 
5238 
6566 
6928 
0757 
0871 
0909 
1225 
1267 
1466 
0139 
6624 
6966 
2855 
2951 
2962 
2966 
2970 
2974 
4948 
4999 
0144 
1991 
2206 
3327 
4023 
2693 
5364 
5365 
1650 
1703 
1711 
1657 
0113 
3619 
0232 
1650 
1667 
0145 
0104 
1852 
1979 
2198 
3229 
3516 
3579 
4401 
4442 


Code 


0277 
7210 
3040 
4660 
4664 
4677 
4681 
4687 
4691 
6123 


7230 
0766 
0872 
0910 
1228 
1273 


0438 
6828 
6969 
2939 
2952 
2963 
2967 
2971 
2975 
4960 


0376 
2006 
3246 
3639 
4172 
3725 


5402 
1657 
1704 


1660 
0447 
3968 
1583 
1657 
1671 
4314 
1752 
1877 
1982 
2218 
3235 
3520 
4102 
4402 
4443 
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6103 
7294 


4661 
4665 
4678 
4682 
4688 


0854 
0876 
0918 
1232 
1277 


1876 


6986 
2941 
2957 
2964 
2968 
2972 


5240 


1846 
2120 
3250 
3810 


1660 
1706 


1771 
3183 


4698 
1660 
1673 
4441 
1833 
1879 
2032 
2283 
3284 
3544 
4106 
4407 
4451 


6154 


4662 
4673 
4679 
4684 
4689 


0855 
0881 
1224 
1259 
1465 


3227 


2945 
2961 
2965 
2969 
2973 


1960 
2203 
3277 
3953 


1662 
1710 


3366 
3225 


1662 
1674 


1847 
1902 
2184 
3035 
3328 
3564 
4376 
4440 
4457 


nulldev 
nullsys 
ol 

02 

ODDP 

ok 

on 


open 
OPEN 
openl 
openi 
os 


out 


outl 
owner 


pl 


p2 


4495 
5787 
5851 
5929 
6034 
6104 
6171 
6448 
6482 
6796 
6853 
7080 
7284 
7326 
7601 
7665 
7732 
4658 
2864 
2447 
2447 
7972 
4256 
6225 
6280 
9018 
9056 
2917 
8843 
5774 
5832 
4368 
4383 
2735 
3331 
3749 
4474 
5919 
5944 
6106 
7539 
7581 
7669 
6119 
3564 
1942 
2015 
3326 
3769 
3775 
3853 
3859 
3870 
3324 
3727 
3753 


4935 
5791 
5853 
5959 
6074 
6108 
6187 
6468 
6497 
6797 
6864 
7122 
7306 
7460 
7610 
7666 
7738 
4682 
2912 
2454 
2454 


4259 
6240 
6295 
9025 
9067 
5765 
8853 
5793 
6702 
4373 


2779 
3346 
3760 
5823 
5922 
5961 
6112 
7549 
7605 
8690 
6136 
3579 
1963 
2032 
3335 
3770 
3776 
3855 
3860 
3871 
3327 
3750 
3773 


5737 
5827 
5867 
5967 
6098 
6111 
6435 
6469 
6627 
6803 
6990 
7173 
7309 
7461 
7623 
7671 
7740 
4684 
2942 


4261 
6241 
6296 
9034 


8857 
5795 


4374 


2814 
3523 
3787 
5828 
5934 
5971 
6115 
7561 
7613 
8696 


6791 
1977 
2041 
3727 
3771 
3777 
3856 
3863 


3328 
3751 
3774 


5771 
5835 
5915 
6019 
6102 
6155 
6436 
6480 
6631 
6829 
7079 
7211 
7312 
7590 
7655 
7729 
8206 
6577 


6260 
6306 
9044 


5804 


4380 


2820 
3532 
4449 
5838 
5938 
6101 
6134 
7564 
7659 


2010 
3324 
3768 
3774 
3847 
3857 
3869 


3344 
3752 
3775 


pad 
panic 


panicstr 
partab 
passc 


pe 


pell 


PCADDR 


pcclose 
PCIHWAT 
pein 


PCIPRI 
pcleader 
PCOHWAT 
PCOLWAT 
pcopen 
PCOPRI 
pcou 
pcout 


pcoutput 
pcepbuf 
pepcsr 
pepint 
perbuf 
percsr 


pceread 
perint 
pestart 
pestate 


pewrite 
physio 
PINOD 


pipe 
PIPSIZ 


3776 
3861 
3865 
5575 
1605 
2719 
4381 
4936 
2328 
7947 
6394 
9038 
2693 
2757 
8641 
8658 
8689 
8724 
8731 
8754 
8607 
8691 
8722 
8750 
4673 
8624 
0564 
8693 
8620 
8664 
8623 
8622 
4673 
8621 
0567 
8644 
8754 
8706 
8630 
8629 
0566 
8628 
8627 
8692 
4673 
0563 
8710 
8642 
8675 
8726 
4673 
5259 
0155 
7289 
2954 
7715 


3778 
3862 
3866 


1853 
3236 
4451 
6930 
2419 
8424 
6517 


2734 
2766 
8645 
8673 
8693 
8726 
8734 
8755 
8659 
8692 
8727 


8669 
8731 
8643 
8730 
8660 
8678 
8754 
8743 
8648 
8755 


8714 
8755 
8748 
8715 
8663 
0567 
8730 
8659 
8722 
8682 
0564 
8742 
8653 
8689 
8728 
8701 
5479 
6963 


T7723 
7835 


3847 
3863 
3867 


2051 
3521 
4458 
7184 


8522 
8544 


2754 
2767 
8653 
8675 
8714 
8728 
8743 
8756 
8663 
8714 
8730 


8673 
8731 
8693 
8763 


8743 
8756 
8769 


8714 
8739 


8674 
8727 


8719 
8758 
8657 
8721 


5486 
7007 


7846 


3860 
3864 


2416 
4377 
4928 
7300 


8695 


2756 
3725 
8657 
8688 
8721 
8730 
8744 


8674 
8715 
8732 


8688 
8734 


8744 


8750 


8691 


8732 


8658 
8724 


7074 
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plock 
Pp 


PPIPE 
prdev 


prele 


pri 
PRIBIO 


printf 


printn 
proc 


procxmt 
profil 
PS 


ps 
PS 


PS 


7768 
2158 
2167 
3518 
3728 
3810 
3814 
3818 
4025 
0157 
2433 
7120 
3518 
7227 
7799 
7849 
2066 
0156 
5297 
1576 
1580 
2454 
6862 
2355 
0358 
1591 
1830 
1960 
2119 
2185 
3222 
3273 
3632 
3810 
4018 
4028 
2956 
0164 
0691 
0726 
0748 
0783 
0791 
0798 
0870 
0934 
0970 
1005 
1294 
1305 
2070 
2693 
2776 
3791 
3852 
5006 


7815 
2160 
3512 
3519 
3794 
3811 
3815 
4018 


7790 
2453 
7178 
3556 
7358 
7817 
7882 
2072 
4943 
5316 
1577 
2340 
2716 
7310 
2369 
0376 
1592 
1846 
1991 
2136 
2193 
3246 
3277 
3639 
3951 
4023 
4204 
3667 
0668 
0697 
0731 
0756 
0787 


0852 
0877 
0935 
0973 
1285 
1298 
1309 
2095 
2699 
3725 
3798 
3872 
5011 


7862 
2161 
3515 
3528 
3795 
3812 
3816 
4023 


7838 
6988 


5826 
7363 
7826 


2078 
4955 


1578 
2421 
2717 


2374 
1589 
1593 
1942 
2006 
2180 
2206 
3248 
3324 
3644 
3953 
4166 


0677 
0700 
0735 
0773 
0790 


0853 
0882 
0958 
0974 
1286 
1299 
1310 


2717 
3759 
3824 
4885 
8262 


2162 
3516 
3533 
3796 
3813 
3817 
4024 


7870 
7048 


6131 
7786 
7837 


2091 
4990 


1579 
2436 
2718 


1590 
1829 
1943 
2115 
2182 
2207 
3250 
3327 
3728 
3994 
4172 


0679 
0720 
0741 
0777 


0869 
0932 
0964 
0999 
1288 
1304 
1314 


2753 
3788 


4892 
8266 


psig 
psignal 


PSLEP 
PSWP 


ptrace 
PUSER 


putc 
putchar 
PWAIT 


pword 
p_addr 


Pp_cpu 


p flag 


p_nice 


p pid 


p_ppid 


p pri 


p_sig 


p_ size 


p_ stat 
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2074 
3827 
2793 
3963 
0159 
0154 
5204 
2938 
0160 
3974 
0926 
8358 
8756 
2351 
2401 
0158 
0840 
0371 
1904 
2045 
2290 
3242 
4149 
4467 
0366 
3814 
0361 
1961 
2046 
2241 
3289 
3998 
4379 
4479 
0367 
0369 
3251 
3304 
3642 
4175 
0370 
3252 
4024 
0362 
2167 
0363 
3626 
4000 
0372 
1978 
2275 
4149 
0360 
1903 
2008 
2208 


Code 


2086 
4043 
2818 
7828 
5994 
1955 
5215 
4164 
2162 


0967 
8414 
8990 
2359 
2402 
3314 
0865 
1589 
1913 
2193 
2294 
3282 
4380 


2161 
3815 
1592 
1992 
2143 
2286 
3302 
4028 
4385 
5312 
1865 
1849 
3278 
3335 
4022 
4183 
1868 
3259 
4175 
2078 
2209 
3287 
3971 
4049 
1590 
2042 
3241 
4374 
1591 
1908 
2077 
3243 
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2105 


3649 


1968 


3817 


8323 
8478 


2375 
2403 


0868 
1743 
2042 
2228 
3134 
3376 
4383 


3795 
3816 
1862 
2007 
2208 
3170 
3303 
4169 
4466 
5317 
2162 
1867 
3281 
3344 
4024 
4209 
3247 
3278 


2091 
2211 
3305 
3972 
4050 
1893 
2044 
4119 
4375 
1847 
1961 
2090 
3253 


2822 


3955 


5167 


3973 


8355 
8730 


2386 
2405 


1894 
2044 
2276 
3241 
3388 
4384 


3796 


1907 
2023 
2240 
3224 
3309 
4187 
4468 


3502 
3247 
3285 
3482 
4174 


3251 
3286 


2141 
3817 
3625 
3997 
4273 
1895 
2274 
4148 


1861 
1993 
2140 
3280 


p_textp 


p_time 


p_ttyp 
p_uid 


p_wchan 


ql 


RO 
r0 
RO 


r0 
RO 


RL 
rl 
RL 
rl 
R1 
R2 
R3 
R4 
R5 
R6 


3284 
3973 
4173 
0374 
1979 
4402 
0365 
2009 
3813 
0368 
3954 
0364 
3646 
0373 
2139 
3221 
3228 
3242 
3259 
3644 
5393 
5393 
0185 
1574 
1750 
5175 
7736 
8413 
9027 
9035 
9062 
9069 
2605 
2693 
3208 
3344 
3443 
3475 
3623 
3725 
4079 
5758 
5866 
6830 
8206 
2606 
2693 
3297 
3725 
7744 
2607 
2608 
2609 
2610 
2611 
4059 


3301 
3974 


1752 
2032 
4448 
1869 
2011 
4386 
1864 
8031 
1863 


2076 


3225 
3229 
3243 
3632 


1561 
1599 
1755 
5177 
7740 
8934 
9029 
9036 
9063 


2679 
2701 
3281 
3416 
3455 
3476 
3637 
3825 
4184 
5831 
5986 
7736 


2679 


3305 


2679 
2679 
2679 
2679 
2679 


3328 
3975 


1866 
4378 
4469 
1962 
2047 


3288 
8032 
3174 


2089 


3226 
3240 
3247 
3638 


1563 
1600 
1760 
5306 
7745 
8951 
9030 
9059 
9065 


2777 
3304 
3423 
3456 
3482 


4191 
5850 
6018 
7744 


3424 


3155 


3811 
4026 


1879 
4401 


1964 
3812 


3644 


3446 


2122 


3227 
3241 
3251 
3640 


1573 
1745 
2401 
7726 
8342 
9026 
9032 
9060 
9068 


3335 
3432 
3464 
3497 


5736 
5853 
6073 
7745 


3433 


4055 


R7 


rablkno 
rablock 


rabp 
RAW 


rbp 


rbr 
re 


RCOM 
rdflg 
RDRENB 


rdwr 
read 
readi 


READING 
readp 
regloc 


RESET 
retry 
retu 


returm 


rexit 
rf 


rfp 


2612 
4058 
4773 
0235 
6456 
4775 
4793 
7971 
8386 
2450 
4756 
4761 
4765 
4782 
4798 
4815 
4819 
4839 
4847 
4862 
4876 
4887 
4891 
4990 
5008 
5023 
5027 
5101 
5110 
5134 
5140 
2316 
2388 
2400 
5094 
5196 
8014 
8659 
5713 
2915 
3090 
6221 
8611 
5748 
0237 
1148 
5367 
1840 
0724 
2294 
7468 
2913 
6621 
7725 
7748 
6646 


2679 
4061 
4788 
6253 
6504 
4789 
4794 
8297 


2452 
4758 
4762 
4775 
4783 
4800 
4816 
4821 
4842 
4848 
4863 
4877 
4888 
4985 
4992 
5009 
5024 
5028 
5105 
5111 
5136 


2390 


5112 
5206 
8051 
8692 
5722 
5711 
3142 
7797 
8724 
7758 
1011 
2677 
5461 
1844 
0740 


3205 
6623 
7731 
7749 
6648 


3188 


4789 
6256 
6506 
4790 
4795 
8344 


2453 
4759 
4763 
4779 
4784 
4801 
4817 
4822 
4843 
4859 
4872 
4882 
4889 
4987 
5002 
5010 
5025 
5030 
5107 
5128 
5137 


2395 


8084 
8732 
5731 
4464 
8726 


1025 
3186 


1850 
2193 


6624 
7732 


6649 


3347 


6454 


4791 


8356 


2454 
4760 
4764 
4781 
4785 
4812 
4818 
4824 
4845 
4861 
4875 
4883 
4890 
4989 
5005 
5021 
5026 
5031 
5108 
5132 
5139 


2399 


8614 


5754 


1038 


4258 


2228 


6626 
7739 


6650 
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6655 
RHRCOM 5121 
rhstart 5123 
RHWCOM 5120 
rip 1831 
1864 
1876 
1894 
5808 
5818 
5832 
6679 
6691 
6710 
RKADDR 5363 
rkaddr 5420 
RKADDR 5447 
rkaddr 5447 
RKADDR 5459 
rkba 5381 
rkcs 5379 
rkda 5382 
rkds 5377 
rker 5378 
rkintr 0576 
rkio 0577 
rkread 4684 
rkstart 5415 
rkstrategy4658 
rktab 4658 
5412 
5446 
5463 
rkwc 5380 
rkwrite 4684 
RO 0315 
rootdev 0228 
6926 
rootdir 0206 
ROOTINO 0106 
rp 1741 
1751 
1761 
1960 
1964 
1980 
1993 
2009 
2023 
2034 
2041 
2046 
2076 
2090 
2139 


2182 


6656 
5141 


5142 
1859 
1865 
1877 
1903 
5811 
5825 
5839 
6680 
6705 
6711 


5460 


5459 
5447 
5460 
5460 
0577 


5476 
5440 
5389 
5386 
5413 
5455 
5469 


5483 
1668 
1616 
6927 
1616 
1616 
1745 
1755 
1762 
1961 
1977 
1981 
2006 
2010 
2024 
2036 
2042 
2047 
2077 
2091 
2140 
2197 


6657 


1860 
1866 
1892 
1908 
5815 
5826 
6675 
6681 
6708 


5461 


5461 


5451 


5464 
5479 
5409 
5414 
5457 
5470 


1674 
1618 
6934 
1617 
1618 
1748 
1758 
1763 
1962 
1978 
1991 
2007 
2011 
2032 
2037 
2044 
2068 
2078 
2136 
2141 
2205 


1863 
1868 
1893 
1917 
5817 
5830 
6678 
6682 
6709 


5462 


5462 


5472 
5486 
5410 
5444 
5458 


4695 
7728 
7533 
7297 
1750 
1760 
1943 
1963 
1979 
1992 
2008 
2015 
2033 
2039 
2045 
2071 
2089 
2138 
2143 
2206 


rpp 


RPS 
rrkbuf 


rsr 
rtp 


runin 


runout 


runrun 
RW 


rw 
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2207 
2211 
2240 
3971 
3975 
4049 
4374 
4380 
4386 
4444 
4467 
4471 
4496 
7350 
7354 
7359 
7378 
7385 
7391 
7421 
7430 
7442 
7448 
7772 
7798 
7865 
7870 
7888 
1830 
1849 
1863 
1867 
1878 
1890 
1906 
2613 
4262 
5387 
2315 
8377 
8392 
8412 
8440 
8478 
0218 
2081 
3822 
0219 
2144 
4389 
0220 
2166 
0317 
1711 
5259 
6689 


Code 


2208 
2219 
2241 
3972 
3976 
4050 
4375 
4383 
4437 
4451 
4468 
4472 
4497 
7351 
7355 
7360 
7381 
7386 
7396 
7423 
7431 
7445 
77621 
7773 
7807 
7867 
7872 
7889 
1846 
1852 
1864 
1868 
1879 
1891 
1907 
2679 


5479 


8381 
8393 
8413 
8452 


1954 
2082 


1967 
2145 


0770 
2196 
1684 


5299 
6702 
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2209 
2223 
3966 
3973 
4046 
4370 
4378 
4384 
4440 
4465 
4469 
4493 
7347 
7352 
7357 
7362 
7382 
7388 
7417 
7425 
7435 
7446 
7763 
7774 
7809 
7868 
7885 
7890 
1847 
1861 
1865 
1869 
1880 
1895 
1913 
4057 


5486 


8386 
8399 
8414 
8463 


1955 
3820 


1968 
4387 


0788 
3807 
1690 


6672 
6716 


2210 
2228 
3970 
3974 
4048 
4372 
4379 
4385 
4443 
4466 
4470 
4495 
7349 
7353 
7358 
7363 
7383 
7389 
7420 
7426 
7438 
7447 
7764 
7796 
7810 
7869 
7887 
7891 
1848 
1862 
1866 
1877 
1881 
1904 


4060 


8390 
8403 
8423 
8468 


2080 
3821 


2143 
4388 


2142 


1707 


6685 
6722 


savfp 
savu 


sbreak 
schar 
sched 
SCHMAG 
seek 
sep 


SETD 

setgid 
setpri 
setreg 


setrun 


setuid 
sgtty 
si 


SIDL 
sig 


SIGBUS 
SIGEMT 
SIGFPT 
SIGHUP 
SIGINS 


SIGINT 
SIGIOT 
SIGKIL 
signal 
SIGPIPE 
SIGQIT 
SIGSEG 
SIGSYS 
SIGTRC 
SINCR 
size 


sleep 


SLOAD 


0888 
0724 
2189 
4476 
2929 
1552 
1637 
3707 
2931 
1650 
1714 
3118 
2660 
2958 
2156 
1089 
1196 
2123 
3976 
2935 
8171 
4139 
4148 
0385 
3949 
3972 
0123 
0120 
0121 
0114 
0117 
4067 
0115 
0119 
0122 
3949 
0126 
0116 
0124 
0125 
0118 
0138 
2528 
2556 
2577 
2586 
1955 
3314 
4955 
5215 
6963 
7790 
8287 
8755 
0391 
1992 


0889 
0725 
2281 
4477 
3354 
4097 
1940 
3814 
5861 
1654 
3023 
3151 
2734 
3460 
2823 
1099 


2134 
4188 
3439 
8191 
4143 
4152 
1903 
3955 


2722 
2748 
2793 


2734 


8345 
2744 
3619 
8345 
7828 
4066 
2815 
2781 
2740 
4143 
2535 
2566 
2578 


1968 
4182 
4990 
5297 
7007 
7838 
8563 
8989 
1592 
2007 


2698 
1889 
2284 


4101 


3815 


1677 
3094 


3818 
1117 


3254 


8201 
4144 
4154 


3963 


4072 
4070 
2797 


2736 


4069 
3971 


8345 
4073 
4074 
4053 


2537 
2567 
2579 


2066 
4190 
5167 
5316 
7074 
7870 
8660 


1862 
2023 


1905 
2846 


7679 


1698 
3100 


3828 
1120 


3310 


4146 
4156 


3968 


4071 


4053 


4068 


2538 
2576 
2584 


3038 
4943 
5204 
5994 
7289 
8225 
8693 


1961 
2046 


SLOCK 


sloop 
slp0 
slp6 
SMAPSIZ 
smount 
smp 


sp 


spl10 


spll 
spl14 


sp15 


spl6 


spl17 


sps 


SRUN 


ssig 
SSIZE 
SSLEEP 
sslep 
ssr 


SSRO 
SSR2 
SSTART 
SSTOP 


SSWAP 


SssYs 
start 


2143 
0393 
4385 
5317 
1953 
2022 
1990 
0142 
2933 
6090 
6111 
6124 
6128 
2693 
4137 
1292 
2092 
4959 
5245 
8228 
8697 
9070 
1292 
1292 
8757 
1292 
8222 
1292 
2088 
4988 
5213 
1292 
9028 
4873 
5006 
8266 
0384 
1961 
2960 
0137 
0382 
2947 
0759 
1021 
1150 
0613 
0765 
0760 
7988 
0387 
4026 
0394 
2286 
0392 
0521 
0614 


2208 
1992 
4466 


2004 


0204 
6086 
6102 
6121 
6125 


2811 
4141 
1293 
4944 
4991 
5320 
8289 
8759 


1297 
1302 
8991 
1303 
8263 
1308 
4886 
5007 
5234 
1313 
9061 
4885 
5011 


1591 
2008 
3614 
3118 
2008 
5979 
0760 
1023 
1171 
0647 
1354 


8514 
1993 
4173 
1907 
4479 
1592 
0522 


4385 
2007 
4468 


2014 


6108 
6122 
6126 


3725 
4143 
1976 
4947 
5170 
5416 
8565 
8993 


3803 
8672 


3766 
8283 
1958 
4940 
5164 
5294 
3854 


4892 
8256 


1861 
2140 


3131 
2090 


1013 
1028 


1465 
0759 


3253 


2240 


1992 
0611 


4379 
5312 


6109 
6123 
6127 


4136 


2079 
4956 
5218 
5996 
8676 
9037 


8686 


5408 
8559 
2075 
4952 
5201 
5314 
5983 


5003 
8262 


1908 
2208 


3150 
1016 
1050 


1467 
0761 


3301 


2241 


2007 
0612 
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stat 
statl 
static 
stime 
stop 
str 
strat 
STRC 


stty 
subyte 
suibyte 
suiword 
sumount 
sureg 
suser 


suword 


SW 
SWAIT 
swap 


swapdev 


swaper 
swapmap 


swbuf 


swplo 
swtch 
SWTED 
sync 
sys 


sysent 


SZOMB 
s_ flock 


s_fmod 
s_ free 


s_fsize 
s_ilock 


2930 
6021 
2180 
2937 
3999 
2433 
5259 
0395 
3998 
2943 
0807 
0809 
0813 
2934 
1724 
3431 
3522 
6800 
0811 
3159 
4058 
6059 
0166 
0383 
2034 
5196 
0229 
5207 
2035 
0204 
3283 
4721 
5209 
0231 
0770 
2178 
4480 
0396 
4187 
2948 
2661 
2667 
2755 
0386 
5570 
6963 
7006 
7023 
5572 
7084 
5567 
7019 
5564 
5571 
7074 
7139 


6028 
6036 


3428 
4016 
2436 
5261 
3170 
4028 
8183 
0827 
0826 
0860 
6144 
1739 
3444 
3579 
6811 
0861 
3164 
4247 
8175 
2391 
1993 
2042 


3237 
5212 
2043 
1583 
4375 
5200 
5210 
1583 
0791 
2287 


3302 


3486 
2759 
2670 
2761 
3243 
6127 
6972 
7007 
7214 
6983 
7144 
6967 
7025 
7047 
6126 
7094 
7213 


6045 


5313 
3224 
4169 


3161 
9067 
4240 


2229 
3465 
5921 


0864 
3661 
4249 
8176 
3416 
2077 
4380 


3282 


2050 
2044 
4408 
5207 
5211 
4697 
2084 
3256 


3303 


2696 
2910 
3280 
6936 
6978 
7015 


7005 
7213 
6976 


6937 
7116 


3309 


6523 


4242 


2295 
3500 
5957 


3156 
4057 
6055 
8177 


3975 
4467 


4696 


3234 
4457 
5208 
5212 


2093 
4027 


3309 


2754 


6962 
6979 
7022 


7026 
7217 
7012 


7073 
7117 


s_ inode 
s_ isize 
s nfree 


s_ ninode 


s ronly 
s_ time 


too 
to1 
t02 
t03 
t04 
to5 
t06 
t07 
t10 
t11 
t12 
t13 
t14 
t15 
t16 
t17 
TBDELAY 
TBIT 
text 


tim 
time 


timeout 
TIMEOUT 
timeout 
TIMEOUT 
times 
tm 
tmtab 
to 

tout 


tp 
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5569 
5563 
5565 
6975 
7014 
7175 
5568 
7108 
7143 
5573 
7214 
5574 
7219 
1056 
1056 
1056 
1056 
1056 
1056 
1056 
1056 
1062 
1057 
1057 
1057 
1057 
1057 
1057 
1057 
7975 
2615 
1240 
4441 
3845 
0213 
3433 
3806 
5989 
7218 
7392 
3845 
7984 
8524 
8525 
2955 
7374 
4727 
6585 
0214 
5989 
5994 
3949 
8032 
8046 
8056 
8071 


Code 


7077 
7047 
6965 
6987 
7018 
7179 
7076 
7113 
7176 
6128 
7383 
6939 


1059 
1079 
1102 
1103 
1104 
1105 
1106 
1093 


1110 
1111 
1112 
1113 
1114 
1107 
1140 


4060 
4306 


3851 
3423 
3801 
5984 
6050 
7219 
7393 


8491 


3656 
7376 
4844 
6586 
3434 
5990 


3954 
8033 
8047 
8057 
8072 
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7107 
7096 
6967 
7010 
7020 


7077 
7118 
7180 
6754 


6940 


1085 


1188 


4314 


3424 
3802 
5985 
6939 
7226 


8518 


7397 


6591 
3804 
5991 


8025 
8044 
8048 
8058 
8073 


7143 


6971 
7011 
7025 


7107 
7141 


6938 


7218 


1101 


4436 


3432 
3804 
5988 
6940 
7357 


7398 


3805 
5992 


8030 
8045 
8049 
8059 
8074 


8075 
8087 
8220 
8225 
8258 
8264 
8284 
8294 
8309 
8341 
8350 
8359 
8374 
8491 
8513 
8520 
8540 
8553 
8561 
8568 
8584 
8591 
trap 0555 
0762 
trapl 2771 
trf 5804 
ts 3023 
4437 
4459 
5275 
tst 0604 
TTHIWAT 7961 
TTIPRI 7951 
TTLOWAT 7962 
TTOPRI 7952 
ttrbuf 8157 
ttrcsr 8156 
ttread 8063 
ttrstrt 8486 
ttstart 8073 
8561 
tttbuf 8159 
tttcsr 8158 
ttwrite 8067 
tty 7926 
8071 
8220 
8279 
8377 
8536 
TTYHOG 7963 
ttyinput 8087 
ttyoutput 8362 
8413 
ttystty 8094 
t_addr 7932 


8080 
8092 
8221 
8227 
8259 
8265 
8285 
8297 
8321 
8345 
8355 
8362 
8381 
8492 
8514 
8524 
8541 
8555 
8562 
8580 
8585 
8592 
0752 
2693 
2841 
5813 
3116 
4455 
4460 
5277 
0605 
8560 
8287 
8074 
8225 


8535 
8524 
8363 
8568 
8522 
8518 
8550 
8015 
8080 
8253 
8334 
8488 
8538 
8349 
8333 
8373 
8566 
8577 
8044 


8081 
8093 
8223 
8255 
8260 
8279 
8287 
8299 
8337 
8346 
8357 
8363 
8488 
8509 
8515 
8525 
8543 
8556 
8563 
8581 
8586 
8593 
0754 


5824 
3118 
4456 
4467 
5283 


8563 


8492 


8025 
8092 
8255 
8337 
8506 
8551 


8392 


8082 


8082 
8094 
8224 
8257 
8261 
8282 
8292 
8304 
8339 
8349 
8358 
8373 
8490 
8512 
8518 
8538 
8544 
8560 
8566 
8583 
8589 
8594 
0755 


3148 
4457 
5266 
5291 


8505 


8056 
8218 
8275 
8374 
8509 
8553 


8403 


8513 


t_cang 
t_char 
t_col 
t_delct 


t_dev 
t_erase 


t_ flags 


t_kill 


t_outq 


t_rawq 


t_speeds 
t_state 


7929 
8544 
7940 
7935 
7934 
8359 
7942 
7936 
8592 
7931 
8336 
8353 
8390 
8452 
8594 
7937 
8593 
7930 
8225 
8478 
7928 
8292 
8358 
7941 
7938 
8224 
8518 
8562 
0459 
0744 
1618 
1678 
1716 
1721 
1752 
1883 
1917 
2242 
2701 
2766 
2774 
2812 
2846 
3056 
3087 
3092 
3099 
3106 
3134 
3148 
3152 
3173 
3187 
3224 
3238 
3291 


8258 


8393 
8265 


8033 
8048 


8047 
8341 
8356 
8399 
8463 


8049 


8074 
8259 
8520 
8260 
8349 


8583 
8045 
8285 
8525 


0646 
1440 
1619 
1694 
1717 
1728 
1754 
1889 
2071 
2273 
2734 
2770 
2775 
2818 
2848 
3064 
3088 
3095 
3101 
3116 
3139 
3149 
3155 
3174 
3188 
3225 
3240 
3292 


8321 


8423 
8284 


8299 


8297 
8342 
8361 
8412 
8468 


8304 


8075 
8261 
8560 
8264 
8355 


8591 
8046 
8491 
8541 


0659 
1441 
1665 
1699 
1719 
1743 
1859 
1891 
2106 
2281 
2752 
2772 
2777 
2823 
2857 
3085 
3089 
3096 
3102 
3117 
3140 
3150 
3170 
3177 
3189 
3227 
3278 
3293 


8543 


8294 


8584 


8309 
8344 
8386 
8440 
8586 


8585 


8223 
8414 
8563 
8287 
8357 


8059 
8514 
8556 


0662 
1593 
1666 
1715 
1720 
1744 
1876 
1905 
2189 
2284 
2763 
2773 
2793 
2845 
3052 
3086 
3091 
3097 
3105 
3127 
3141 
3151 
3172 
3183 
3208 
3232 
3281 
3294 
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3295 
3305 
3330 
3338 
3344 
3366 
3373 
3389 
3432 
3445 
3456 
3467 
3497 
3525 
3554 
3569 
3620 
3626 
3649 
3662 
3673 
3793 
3996 
4051 
4057 
4061 
4100 
4114 
4119 
4127 
4148 
4168 
4177 
4191 
4254 
4273 
4448 
4463 
4478 
5275 
5306 
5317 
5344 
5744 
5756 
5788 
5831 
5853 
5875 
5927 
5936 
5966 
6021 
6094 
6117 
6157 


3296 
3314 
3335 
3339 
3347 
3369 
3376 
3416 
3433 
3446 
3464 
3475 
3502 
3526 
3555 
3581 
3623 
3637 
3652 
3670 
3789 
3794 
4003 
4052 
4058 
4075 
4103 
4115 
4121 
4141 
4149 
4169 
4184 
4193 
4255 
4401 
4455 
4465 
4479 
5276 
5309 
5322 
5736 
5745 
5758 
5790 
5833 
5866 
5876 
5930 
5937 
5969 
6036 
6096 
6128 
6163 
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3297 
3317 
3336 
3340 
3364 
3370 
3378 
3423 
3443 
3447 
3465 
3476 
3519 
3527 
3567 
3582 
3624 
3638 
3660 
3671 
3790 
3825 
4021 
4054 
4059 
4079 
4111 
4116 
4122 
4143 
4150 
4174 
4185 
4209 
4258 
4402 
4461 
4476 
5269 
5291 
5310 
5326 
5740 
5751 
5773 
5819 
5835 
5870 
5880 
5933 
5960 
5986 
6073 
6113 
6135 
6190 


3304 
3326 
3337 
3341 
3365 
3371 
3388 
3424 
3444 
3455 
3466 
3482 
3524 
3547 
3568 
3618 
3625 
3646 
3661 
3672 
3791 
3828 
4048 
4055 
4060 
4099 
4113 
4117 
4123 
4146 
4156 
4175 
4186 
4235 
4262 
4439 
4462 
4477 
5273 
5292 
5312 
5343 
5743 
5752 
5774 
5822 
5850 
5873 
5918 
5935 
5964 
6018 
6078 
6114 
6152 
6193 


ud 
ul 
u2 
u3 
u4 
u5 
u6 
u7 
ub 


UBMAP 


uchar 


UDSA 


6230 
6244 
6295 
6313 
6372 
6381 
6521 
6527 
6531 
6550 
6556 
6630 
6763 
6798 
6830 
6929 
7459 
7483 
7488 
7538 
7571 
7585 
7600 
7622 
7639 
7646 
7695 
7745 
7811 
7844 
8027 
8174 
8190 
8654 
9025 
9050 
9057 
1067 
1067 
1067 
1067 
1067 
1067 
1067 
1067 
6045 
6060 
0311 
5177 
3026 
3541 
5784 
5928 
6033 
6186 
0308 


Code 


6239 
6262 
6296 
6315 
6374 
6382 
6522 
6528 
6546 
6551 
6557 
6727 
6769 
6814 
6833 
6989 
7465 
7484 
7489 
7548 
7572 
7586 
7606 
7626 
7640 
7664 
7736 
7795 
7818 
7845 
8031 
8187 
8206 
8751 
9038 
9051 


1096 
1189 
1190 
1191 
1087 
1071 
1069 
1192 
6055 


1573 


3034 
3543 
5786 
5955 
6091 
6794 
5306 
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6240 
6290 
6307 
6316 
6376 
6383 
6523 
6529 
6548 
6554 
6569 
6755 
6771 
6816 
6856 
7121 
7466 
7486 
7490 
7560 
7576 
7587 
7608 
7636 
7642 
7682 
7740 
7796 
7827 
7846 
8032 
8188 
8210 
8854 
9048 
9055 


1075 


6056 


1574 


3513 
5768 
5912 
5958 
6097 
6796 


6241 
6294 
6309 
6319 
6378 
6424 
6524 
6530 
6549 
6555 
6626 
6759 
6778 
6829 
6863 
7311 
7482 
7487 
7531 
7570 
7580 
7589 
7612 
7638 
7645 
7693 
7744 
7798 
7828 
7847 
8172 
8189 
8590 
9024 
9049 
9056 


1097 


6059 


5175 


3515 
5770 
5914 
6031 
6184 
7689 


ufalloc 
uid 


UISA 


UISAO 
UISA1 
UISD 

UISDO 


UISD1 
UMODE 


unlink 
up 


update 
updlock 


user 
USER 


USIZE 


u_ar0d 


u_arg 


6076 
3441 
3446 
0306 
1750 
9029 
9062 
0678 
0701 
0699 
0304 
1760 
9036 
0681 
0705 
0704 
2659 
3824 
2922 
1741 
1752 
1761 
1892 
8174 
8185 
8190 
2420 
0234 
7229 
0413 
2662 
2739 
2796 
0103 
1560 
1682 
3370 
4459 
0452 
3187 
3297 
3344 
3424 
3455 
3476 
3637 
4058 
4079 
4262 
5850 
6018 
7744 
0440 
3052 
3096 
3105 


6824 
3443 
3447 
1563 
1763 
9032 
9065 
0680 
0719 
0702 
1561 
1763 
9060 
0682 
0717 
0706 
2699 


3510 
1744 
1753 
1829 
2156 
8175 
8187 


3489 
1559 


2700 
2743 
2810 
0636 
1590 
3129 
4116 
4467 
2701 
3188 
3304 
3347 
3432 
3456 
3482 
3825 
4059 
4184 
5736 
5853 
6073 
7745 
2763 
3056 
3097 
3116 


6852 
3444 


1599 
5306 
9035 
9068 
0690 


0718 
1600 
9027 
9063 
0689 


0716 
3706 


1747 
1754 
1860 
2160 
8176 
8188 


6150 
7207 


2721 
2747 


0646 
1628 
3131 
4119 
4473 
2812 
3208 
3305 
3416 
3433 
3464 
3497 
4055 
4060 
4191 
5758 
5866 
6830 
8206 
2766 
3085 
3099 
3117 


3445 


1745 
9026 
9059 


0698 


1755 
9030 
9069 
0703 


3788 


1751 
1757 
1879 
8168 
8177 
8189 


7201 
7209 


2733 
2751 


0662 
1662 
3133 
4233 


3155 
3281 
3335 
3423 
3443 
3475 
3623 
4057 
4061 
4258 
5831 
5986 
7736 


2770 
3095 
3101 
3140 


u_base 


u_cdir 


u_count 


u_cstime 
u_cutime 
u_dbuf 


u_dent 


u_dirp 
u_dsize 


u_error 


3141 
3568 
3618 
3662 
3673 
4174 
4455 
5756 
5790 
5880 
6021 
6128 
8189 
0425 
4115 
5743 
6381 
6549 
9050 
0428 
3232 
0426 
4116 
5291 
5756 
6262 
6383 
6554 
7639 
7847 
0451 
3294 
0450 
3339 
0429 
7576 
0434 
7482 
7640 
0430 
6096 
0442 
3371 
0419 
2774 
3064 
3317 
3652 
4127 
5343 
5819 
5918 
5960 
6117 
6163 
6307 


3208 
3569 
3624 
3670 
4075 
4185 
4461 
5758 
5873 
5927 
6036 
8174 
8190 
3085 
4121 
6372 
6522 
6550 


1618 
3554 
3086 
4122 
5310 
5758 
6290 
6527 
7486 
7811 
9048 
3291 
3336 
3294 
3340 
7484 
7645 
3519 
7483 
7646 
2770 
7682 
3149 
3373 
1728 
2775 
3092 
3330 
4052 
4177 
5344 
5822 
5930 
5964 
6135 
6190 
6319 


3297 
3581 
3649 
3671 
4079 
4186 
5743 
5773 
5875 
5966 
6096 
8187 
8590 
3139 
4463 
6374 
6523 
6557 


1619 
3555 
3141 
4461 
5322 
6230 
6296 
6531 
7589 
7818 
9049 
3292 
3337 
3295 


7570 
7646 
3525 
7488 
7664 
4100 
7693 
3152 
4146 
2752 
2777 
3102 
3547 
4099 
4193 
5740 
5833 
5933 
6094 
6152 
6193 
6378 


3364 
3582 
3661 
3672 
4168 
4439 
5744 
5774 
5876 
5969 
6113 
8188 


3525 
5269 
6376 
6530 
7488 


1883 
7531 
3526 
5273 
5744 
6241 
6319 
6546 
7600 
7846 


3293 


3296 


7572 


3527 
7636 


5927 


3369 
5291 
2773 
2857 
3106 
3620 
4103 
5326 
5788 
5870 
5937 
6114 
6157 
6262 
6424 
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u_fsav 
u_gid 


u_ino 
u_intflg 


u_name 
u_offset 


u_ofile 


u_pdir 


u_procp 


6524 
6727 
6816 
6989 
7548 
7612 
8172 
8854 
0416 
0421 
6771 
0432 
7640 
0454 
0433 
0427 
3524 
5309 
6240 
6309 
6382 
6556 
7622 
7642 
7844 
9025 
0438 
5853 
6856 
0435 
7489 
0424 
1859 
2273 
3134 
3240 
3376 
3502 
3794 


6551 
6755 
6833 
7121 
7560 
7695 
8210 
9038 
3189 
3177 
7466 
3519 
7664 
2772 
7483 
3087 
4113 
5751 
6244 
6313 
6528 
7585 
7626 
7795 
7845 
9051 
1876 
6078 
7740 
5935 
7490 
1593 
1891 
2793 
3170 
3278 
3388 
3625 
3828 


6569 
6759 
6863 
7311 
7571 
7827 
8654 
9057 
4255 
3466 


3527 


2845 
7646 
3088 
4114 
5752 
6294 
6315 
6529 
7586 
7636 
7796 
7846 
9055 
3227 
6626 


5936 
7606 
1743 
1917 
2818 
3174 
3314 
3446 
3626 
3996 


6630 
6778 
6929 
7538 
7580 
8027 
8751 


3476 


7482 


2848 


3140 
4462 
6239 
6295 
6316 
6555 
7608 
7638 
7798 
9024 
9056 
5835 
6829 


7459 


1752 
2071 
2823 
3224 
3326 
3482 
3638 
4021 


u_prof 
u_qsav 
u_rgid 
u_rsav 


u_ruid 


u_segflg 


u_sep 


u_signal 


u_ssav 


u_ssize 


u_stime 
u_tsize 


u_uid 


u_uisa 


u_uisd 
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4048 
4169 
4401 
4478 
7828 
0453 
3672 
0445 
0423 
0415 
4476 
0422 
4111 
0418 
4123 
6548 
0444 
3371 
0447 
3623 
4054 
0446 
4477 
0443 
3371 
4141 
4156 
0449 
0441 
3371 
0420 
3456 
6763 
7465 
0436 
1699 
1744 
0437 


Code 


4119 
4175 
4402 
4479 
8031 
3127 
3673 
2106 
3465 
1889 


3444 


3089 
5745 
7487 
3151 
4146 
2734 
3624 


1905 


3150 
3376 
4143 
5292 
3293 
3148 
4146 
3172 
3567 
6769 


1665 
1715 


1666 
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4148 
4209 
4448 
5312 
8032 
3670 
3790 
2846 
3467 
2189 


3447 


3091 
6372 
7587 
3152 
5276 
3183 
4003 


2242 


3152 
3378 
4146 


3338 
3152 
5275 
3173 
3646 
6798 


1678 
1716 


1719 


4149 
4273 
4465 
5317 


3671 
3791 


3475 
2281 


3455 


4117 
6521 


3365 
5306 
3225 
4051 


2284 
3370 
3389 
4150 


3793 
3366 


3445 
4111 
6814 


1694 
1717 


1720 


u_utime 


Vv 


vp 


VTDELAY 
wait 
WAITING 
wakeup 


WwCOM 
wdir 
wf 


wflushtty 
WLO 

wo 

WOPEN 
write 
writei 


writep 
x1 
x2 
x3 
x4 


1721 
0448 
3789 
8090 
8170 
8580 
8585 
8592 
8168 
8176 
7977 
2919 
8610 
2082 
3248 
3808 
4213 
5031 
6652 
7117 
8075 
8734 
5093 
5940 
7725 
7747 
8058 
5373 
0316 
7985 
2916 
3528 
6276 
5749 
2340 
2340 
2340 
2340 


1754 
3296 


8091 
8201 
8582 
8586 
8593 
8170 
8177 
8463 
3270 
8657 
2113 
3249 
3822 
4389 
5188 
6653 
7778 
8260 
8744 
5114 
7467 
7737 


8217 


1762 


5720 
4118 
7489 
7805 
2346 


3341 


8094 
8202 
8583 
8590 
8594 
8171 


8658 
2145 
3434 
4025 
4877 
5217 
6979 
7852 
8261 
8982 


7477 
7738 


8589 


4124 
7848 


3660 


8167 
8213 
8584 
8591 


8175 


8721 
3197 
3805 
4195 
4880 
5319 
7023 
7891 
8357 


7746 


5755 


x5 

x6 

x7 

x8 

x9 

xa 
xalloc 
xb 

xbr 

xc 
xccdec 
xfree 


xp 


xsr 
xswap 
XTABS 

x _caddr 
x_ccount 
x_count 
x_daddr 
x_iptr 

x size 


Zz 


2340 
2340 
2340 
2340 
2340 
2340 
3130 
2340 
2318 
2340 
4378 
3128 
4399 
4405 
4436 
4446 
4452 
4457 
4483 
5911 
2317 
2406 
1906 
4478 
7967 
1753 
1881 
4313 
4495 
1880 
4452 
2034 
4467 
4311 
4446 
1981 
4408 
8407 


4433 


2399 


4403 
3233 
4401 
4407 
4441 
4447 
4453 
4467 
4490 
5928 
2393 


2024 


8047 
2036 
1980 
4453 
4496 
4312 


4308 


4405 
4454 
2034 
4456 
8885 


4490 
4398 
4403 
4408 
4442 
4448 
4454 
4469 
4491 
5929 
2397 


2285 
8390 
4309 
2033 
4475 
4404 
4409 
4407 


2037 
4497 


4404 
4409 
4444 
4451 
4456 
4475 
4495 
5931 
2398 


4368 


4497 


2039 


4483 


4447 


4457 


4442 


4310 
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Sep 


0100 
0101 
0102 
0103 
0104 
0105 
0106 
0107 
0108 
0109 
0110 
0111 
0112 
0113 
0114 
0115 
0116 
0117 
0118 
0119 
0120 
0121 
0122 
0123 
0124 
0125 
0126 
0127 
0128 
0129 
0130 
0131 
0132 
0133 
0134 
0135 
0136 
0137 
0138 
0139 
0140 
0141 
0142 
0143 
0144 
0145 
0146 
0147 
0148 
0149 
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/* fundamental constants: do not change */ 


#define USIZE 16 /* size of user block (*64) */ 
#define NULL 0 

#define NODEV (-1) 

#define ROOTINO 1 /* i number of all roots */ 
#define DIRSIZ 14 /* max characters per directory */ 


/* signals: do not change */ 


#define NSIG 20 

#define SIGHUP 1 /* hangup */ 

#define SIGINT 2 /* interrupt (rubout) */ 
#define SIGQIT 3 /* quit (FS) */ 

#define SIGINS 4 /* illegal instruction */ 
#define SIGTRC 5 /* trace or breakpoint */ 
#define SIGIOT 6 /* iot */ 

#define SIGEMT 7 /* emt */ 

#define SIGFPT 8 /* floating point exception */ 
#define SIGKIL 9 /* kill */ 

#define SIGBUS 10 /* bus error */ 

#define SIGSEG 11 /* segmentation violation */ 
#define SIGSYS 12 /* sys */ 

#define SIGPIPE 13 /* end of pipe */ 

/* tunable variables */ 

#define NBUF 15 /* size of buffer cache */ 


#define NINODE 100 /* number of in core inodes */ 
#define NFILE 100 /* number of in core file structures */ 
#define NMOUNT 5 /* number of mountable file systems */ 
#define NEXEC 3 /* number of simultaneous exec’s */ 
#define MAXMEM (64*32) /* max core per process; 

first number is kw */ 
#define SSIZE 20 /* initial stack size (*64 bytes) */ 
#define SINCR 20 /* increment of stack (*64 bytes) */ 
#define NOFILE 15 /* max open files per process */ 


#define CANBSIZ 256 /* max size of typewriter line */ 
#define CMAPSIZ 100 /* size of core allocation area */ 
#define SMAPSIZ 100 /* size of swap allocation area */ 
#define NCALL 20 /* max simultaneous time callouts */ 


#define NPROC 50 /* max number of processes */ 
#define NTEXT 40 /* max number of pure texts */ 
#define NCLIST 100 /* max total clist size */ 
#define HZ 60 /* Ticks/second of the clock */ 
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0150 
0151 
0152 
0153 
0154 
0155 
0156 
0157 
0158 
0159 
0160 
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0163 
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0165 
0166 
0167 
0168 
0169 
0170 
0171 
0172 
0173 
0174 
0175 
0176 
0177 
0178 
0179 
0180 
0181 
0182 
0183 
0184 
0185 
0186 
0187 
0188 
0189 
0190 
0191 
0192 
0193 
0194 
0195 
0196 
0197 
0198 
0199 
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/* priorities: do not alter much */ 


#define PSWP -100 
#define PINOD -90 
#define PRIBIO -50 
#define PPIPE 1 
#define PWAIT 40 
#define PSLEP 90 
#define PUSER 100 


/* Certain processor registers */ 
#define PS 0177776 
#define KL 0177560 
#define SW 0177570 


[* ---------------- ee */ 


/* structures to access integers : */ 


/* single integer */ 


struct { int integ; }; 
/* in bytes */ 
struct { char lobyte; char hibyte; }; 


/* as a sequence */ 


struct { int rf]; }; 


[* ---- 2-2 ene - eee -eee */ 
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0200 /* various global variables */ 0250 

0201 0251 /* ------------------------- */ 

0202 char canonb [CANBSIZ] ; /* buffer for erase and kill */ 0252 

0203 int coremap[CMAPSIZ] ; /* space for core allocation */ 0253 /* The callout structure is for a routine 
0204 int swapmap[SMAPSIZ] ; /* space for swap allocation */ 0254 * arranging to be called by the the clock interrupt 
0205 0255 * (see clock.c), with a specified argument, 
0206 int *rootdir; /* pointer to inode of root directory */ 0256 * within a specified amount of time. 

0207 0257 * It is used, for example, to time tab delays 
0208 int cputype; /* type of cpu =40, 45, or 70 */ 0258 * on teletypes. */ 

0209 0259 

0210 int execnt; /* number of processes in exec */ 0260 struct callo 

0211 0261 { 

0212 int lbolt; /* time of day in 60th not in time */ 0262 int c_time; /* incremental time */ 
0213 int time[2]; /* time in sec from 1970 */ 0263 int c_arg; /* argument to routine */ 
0214 int tout[2]; /* time of day of next sleep */ 0264 int (*c_func) (); /* routine */ 
0215 0265 } callout [NCALL] ; 

0216 int mpid; /* generic for unique process id’s */ 0266 /* ------------------------- */ 

0217 0267 

0218 char runin; /* scheduling flag */ 0268 /* Mount structure: used to locate 

0219 char runout; /* scheduling flag */ 0269 * the super block of a mounted file. 

0220 char runrun; /* scheduling flag */ 0270 */ 

0221 0271 

0222 char curpri; /* more scheduling */ 0272 struct mount 

0223 0273 { 

0224 int maxmem; /* actual max memory per process */ 0274 int m_dev; /* device mounted */ 

0225 0275 int *m_bufp; /* pointer to superblock */ 
0226 int *lks; /* pointer to clock device */ 0276 int *m_inodp; /* pointer to mounted on inode */ 
0227 0277 } mount [NMOUNT] ; 

0228 int rootdev; /* dev of root see conf.c */ 0278 /* ------------------------- */ 

0229 int swapdev; /* dev of swap see conf.c */ 0279 

0230 0280 

0231 int swplo; /* block number of swap space */ 0281 

0232 int nswap; /* size of swap space */ 0282 

0233 0283 

0234 int updlock; /* lock for sync */ 0284 

0235 int rablock; /* block to be read ahead */ 0285 

0236 0286 

0237 char regloc[]; /* locs. of saved user registers 0287 

0238 (see trap.c) */ 0288 

0239 0289 

0240 0290 

0241 /* ------------------------- */ 0291 

0242 0292 

0243 0293 

0244 0294 

0245 0295 

0246 0296 

0247 0297 

0248 0298 

0249 0299 

Reproduced under license from the Western Electric Company, NY Reproduced under license from the Western Electric Company, NY 
Copyright, J. Lions, 1976 Copyright, J. Lions, 1976 


Sheet 02 Sheet 02 


Sep 1 09:28 


0300 


1988 unix/seg.h Page 1 


0301 /* kt-11 addresses and bits */ 


0302 
0303 
0304 #define 
0305 
0306 #define 
0307 
0308 #define 
0309 
0310 
0311 #define 
0312 
0313 
0314 
0315 #define 
0316 #define 
0317 #define 
0318 #define 
0319 


UISD 0177600 
UISA 0177640 


UDSA 0177660 


UBMAP 0170200 


RO 02 /* 


/* 
/* 
/* 


/* 


first user I-space descriptor 


register 
first user I-space address 
register 
first user D-space address 
register 


access to 11/70 unibus map 


access abilities */ 


expand segment downwards */ 


0320 /* ------------------------- */ 


0321 
0322 int 
0323 
0324 
0325 
0326 
0327 
0328 
0329 
0330 
0331 
0332 
0333 
0334 
0335 
0336 
0337 
0338 
0339 
0340 
0341 
0342 
0343 
0344 
0345 
0346 
0347 
0348 
0349 
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0350 
0351 
0352 
0353 
0354 
0355 
0356 
0357 
0358 
0359 
0360 
0361 
0362 
0363 
0364 
0365 
0366 
0367 
0368 
0369 
0370 
0371 
0372 
0373 
0374 
0375 
0376 
0377 
0378 
0379 
0380 
0381 
0382 
0383 
0384 
0385 
0386 
0387 
0388 
0389 
0390 
0391 
0392 
0393 
0394 
0395 
0396 
0397 
0398 
0399 


1 09:28 


+ ee ee OF 


process. 
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One structure allocated per active 
It contains all data needed 
about the process while the 

process may be swapped out. 

Other per process data (user.h) 


* is swapped with the process. 


*/ 
struct 
{ 

char 

char 
char 
char 
char 
char 
char 
char 
int 
int 
int 
int 
int 
int 
int 


proc 


p_ stat; 
p_ flag; 
p_pri; 
p_sig; 
p_uid; 
p_time; 
Pp_cpu; 
p_nice; 
p_ttyp; 
p_ pid; 
p_ppid; 
p_addr; 
p_size; 


p_wchan; 


/* 
/* 
/* 
/* 
/* 
/* 
/* 
/* 
/* 
/* 
/* 
/* 


priority, negative is high */ 

signal number sent to this process */ 

user id, used to direct tty signals */ 
resident time for scheduling */ 

cpu usage for scheduling */ 

nice for scheduling */ 

controlling tty */ 

unique process id */ 

process id of parent */ 

address of swappable image */ 

size of swappable image (*64 bytes) */ 
event process is awaiting */ 


*p textp;/* pointer to text structure */ 


} proc [NPROC] ; 


[* ---- 2-H eee */ 

/* stat codes */ 

/* null 0 not assigned */ 

#define SSLEEP 1 /* sleeping on high priority */ 
#define SWAIT 2 /* sleeping on low priority */ 
#define SRUN 3 /* running */ 

#define SIDL 4 /* process being created */ 
#define SZOMB 5 /* process being terminated */ 
#define SSTOP 6 /* process being traced */ 

/* flag codes */ 

#define SLOAD o1 /* in core */ 

#define SSYS 02 /* scheduling process */ 
#define SLOCK 04 /* process cannot be swapped */ 
#define SSWAP 010 /* process is being swapped out */ 
#define STRC 020 /* process is being traced */ 
#define SWTED 040 /* another tracing flag */ 
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0400 /* 0450 int u_cutime[2]; /* sum of childs’ utimes */ 
0401 * The user structure. 0451 int u_cstime[2]; /* sum of childs’ stimes */ 
0402 * One allocated per process. 0452 int *u_ar0; /* address of users saved RO */ 
0403 * Contains all per process data 0453 int u_prof[4]; /* profile arguments */ 

0404 * that doesn’t need to be referenced 0454 char u_intflg; /* catch intr from sys */ 
0405 * while the process is swapped. 0455 /* kernel stack per user 

0406 * The user block is USIZE*64 bytes 0456 * extends from u + USIZE*64 
0407 * long; resides at virtual kernel 0457 * backward not to reach here 
0408 * loc 140000; contains the system 0458 */ 

0409 * stack per user; is cross referenced 0459 } u; 

0410 * with the proc structure for the 0460 /* ------------------------- */ 

0411 * same process. 0461 

0412 */ 0462 /* u_error codes */ 

0413 struct user 0463 /* See section "INTRO(II)" of 
0414 { 0464 * the UNIX Programmer’s manual 
0415 int u_rsav[2]; /* save r5,r6 when exchanging stacks */ 0465 * for the meanings of these codes. */ 
0416 int u_fsav[25]; /* save fp registers */ 0466 #define EFAULT 106 

0417 /* rsav and fsav must be first in structure */ 0467 #define EPERM 1 

0418 char u_segflg; /* flag for IO; user or kernel space */ 0468 #define ENOENT 2 

0419 char u_error; /* return error code */ 0469 #define ESRCH 3 

0420 char u_uid; /* effective user id */ 0470 #define EINTR 4 

0421 char u_gid; /* effective group id */ 0471 #define EIO 5 

0422 char u_ruid; /* real user id */ 0472 #define ENXIO 6 

0423 char u_rgid; /* real group id */ 0473 #define E2BIG 7 

0424 int u_procp; /* pointer to proc structure */ 0474 #define ENOEXEC 8 

0425 char *u_base; /* base address for IO */ 0475 #define EBADF 9 

0426 char *u_count; /* bytes remaining for IO */ 0476 #define ECHILD 10 

0427 char *u_offset[2]; /* offset in file for IO */ 0477 #define EAGAIN 11 

0428 int *u_cdir; /* pointer to inode for current directory */ 0478 #define ENOMEM 12 

0429 char u_dbuf [DIRSIZ] ; /* current pathname component */ 0479 #define EACCES 13 

0430 char *u_dirp; /* current pointer to inode */ 0480 #define ENOTBLK 15 

0431 struct { /* current directory entry */ 0481 #define EBUSY 16 

0432 int u_ino; 0482 #define EEXIST 17 

0433 char u_name [DIRSIZ] ; 0483 #define EXDEV 18 

0434 } u dent; 0484 #define ENODEV 19 

0435 int *u_pdir; /* inode of parent directory of dirp */ 0485 #define ENOTDIR 20 

0436 int u_uisa[16]; /* prototype segmentation addresses */ 0486 #define EISDIR 21 

0437 aint u_uisd[16]; /* prototype segmentation descriptors */ 0487 #define EINVAL 22 

0438 int u_ofile[NOFILE]; /* pointers to file structures of 0488 #define ENFILE 23 

0439 open files */ 0489 #define EMFILE 24 

0440 int u_arg[5]; /* arguments to current system call */ 0490 #define ENOTTY 25 

0441 int u_tsize; /* text size (*64) */ 0491 #define ETXTBSY 26 

0442 int u_dsize; /* data size (*64) */ 0492 #define EFBIG 27 

0443 int u_ssize; /* stack size (*64) */ 0493 #define ENOSPC 28 

0444 int u_sep; /* flag for I and D separation */ 0494 #define ESPIPE 29 

0445 int u_qsav[2]; /* label variable for quits & interrupts */ 0495 #define EROFS 30 

0446 int u_ssav[2]; /* label variable for swapping */ 0496 #define EMLINK 31 

0447 int u_signal [NSIG] ; /* disposition of signals */ 0497 #define EPIPE 32 

0448 int u_utime; /* this process user time */ 0498 

0449 int u_stime; /* this process system time */ 0499 
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0500 / low core 0550 

0501 OSSL SSS/SSIISIIISIITLTTLTTITTITTT AAT TATA TTT TT AAT TAT T ATT 
0502 br4 = 200 0552 / interface code to C 

0503 br5 = 240 O553 SSSIISIISIIILIITLTTLTTITTITIT TAT TAT TATA TT TATA TTT TTT 
0504 bré = 300 0554 

0505 br7 = 340 0555 .globl call, trap 

0506 0556 

0507 . = 0%. 0557 .globl _klrint 

0508 br 1f 0558 klin: jsr r0,call; _klrint 
0509 4 0559 

0510 0560 .globl _kilxint 

0511 / trap vectors 0561 klou: jsr r0,call; _klxint 
0512 trap; br7+0. / bus error 0562 

0513 trap; br7+1. / illegal instruction 0563 .globl _perint 

0514 trap; br7+2. / bpt-trace trap 0564 pcin: jsr r0,call; perint 
0515 trap; br7+3. / iot trap 0565 

0516 trap; br7+4. / power fail 0566 .globl _pepint 

0517 trap; br7+5. / emulator trap 0567 pcou: jsr r0,call; pepint 
0518 trap; br7+6. / system entry 0568 

0519 0569 .globl _clock 

0520 . = 40%. 0570 kwilp: jsr r0,call; clock 
0521 .globl start, dump 0571 

0522 1: jmp start 0572 

0523 jmp dump 0573 .globl _ipint 

0524 0574 lpou: jsr r0,call; Ilpint 
0525 . = 60%. 0575 

0526 klin; br4 0576 .globl _rkintr 

0527 klou; br4 0577 rkio: jsr r0,call; rkintr 
0528 0578 

0529 . = 70%. 0579 

0530 pein; br4 0580 

0531 pcou; br4 0581 

0532 0582 

0533 . = 100%. 0583 

0534 kwlp; br6é 0584 

0535 kwlp; br6é 0585 

0536 0586 

0537 . = 114%. 0587 

0538 trap; br7+7. / 11/70 parity 0588 

0539 0589 

0540 . = 200%. 0590 

0541 lpou; br4 0591 

0542 0592 

0543 . = 220%. 0593 

0544 rkio; br5 0594 

0545 0595 

0546 . = 240%. 0596 

0547 trap; br7+7. / programmed interrupt 0597 

0548 trap; br7+8. / flotaing point 0598 

0549 trap; br7+9. / segmentation violation 0599 
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0600 / machine language assist 0650 

0601 / for 11/40 0651 MOv $ edata,r0 

0602 0652 1: 

0603 / non-UNIX instructions 0653 elr (r0) + 

0604 mfpi = 6500*tst 0654 cmp r0,$ end 

0605 mtpi = 6600*tst 0655 blo 1b 

0606 wait = 1 0656 

0607 rtt = 6 0657 / clear user block 

0608 reset = 5 0658 

0609 0659 mov $ u,r0 

0610 /* ------------------------- */ 0660 1: 

0611 .globl start, end, edata, main 0661 elr (r0)+ 

0612 start: 0662 cmp r0,$_ u+[USIZE*64.] 
0613 bit $1,SSRO0 0663 blo 1b 

0614 bne start / loop if restart 0664 

0615 reset 0665 / set up previous mode and call main 
0616 0666 / on return, enter user mode at OR 
0617 / initialize systems segments 0667 

0618 0668 mov $30000,PS 

0619 mov $KISAO,r0 0669 jsr pc, main 

0620 mov $KISDO,r1 0670 mov $170000, - (sp) 

0621 mov $200,r4 0671 clr - (sp) 

0622 clr r2 0672 rtt 

0623 mov $6,xr3 0673 

0624 1: 0674 /* ------------------------- */ 
0625 mov r2, (r0) + 0675 .globl _clearseg 

0626 mov $77406, (r1) + / 4k rw 0676 clearseg: 

0627 add r4,r2 0677 mov PS, - (sp) 

0628 sob r3,1b 0678 mov UISAO, - (sp) 

0629 0679 mov $30340,PS 

0630 / initialize user segment 0680 mov 6 (sp) , UISAO 

0631 0681 mov UISDO, - (sp) 

0632 mov $ end+63.,r2 0682 mov $6,UISDO 

0633 ash $-6,r2 0683 clr r0 

0634 bic $!1777,xr2 0684 mov $32.,r1 

0635 mov r2, (r0) + / ksr = sysu 0685 1: 

0636 mov $SUSIZE-1\<8|6, (r1) + 0686 clr - (sp) 

0637 0687 mtpi (x0) + 

0638 / initialize io segment 0688 sob r1,1b 

0639 / set up counts on supervisor segments 0689 mov (sp) +,UISDO 

0640 0690 mov (sp) +,UISAO 

0641 mov $Io, (r0) + 0691 mov (sp) +,PS 

0642 mov $77406, (r1) + / rw 4k 0692 rts pe 

0643 0693 

0644 / get a sp and start segmentation 0694 /* ------------------------- */ 
0645 0695 .globl _copyseg 

0646 mov $ u+[USIZE*64.],sp 0696 copyseg: 

0647 inc SSRO 0697 mov PS, - (sp) 

0648 0698 mov UISAO, - (sp) 

0649 / clear bss 0699 Mov UISA1, - (sp) 
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0700 mov $30340,PS 0750 

0701 mov 10 (sp) , UISAO 0751 /* ------------------------- */ 
0702 mov 12 (sp) ,UISA1 0752 .globl trap, call 

0703 Mov UISDO, - (sp) 0753 /* ------------------------- */ 
0704 mov UISD1, - (sp) 0754 .globl _trap 

0705 mov $6,UISDO 0755 trap: 

0706 mov $6,UISD1 0756 mov PS, -4 (sp) 

0707 mov r2,- (sp) 0757 tst nofault 

0708 clr r0 0758 bne lf 

0709 mov $8192.,r1 0759 mov SSRO,ssr 

0710 mov $32.,r2 0760 mov SSR2,ssr+4 

0711 1: 0761 mov $1,SSRO 

0712 mfpi (x0) + 0762 jsr r0,calll1; trap 
0713 mtpi (v1) + 0763 / no return 

0714 sob r2,1b 0764 1: 

0715 mov (sp) +,r2 0765 mov $1,SSRO 

0716 mov (sp) +,UISD1 0766 mov nofault, (sp) 
0717 mov (sp) +, UISDO 0767 rtt 

0718 mov (sp) +,UISA1 0768 

0719 Mov (sp) +,UISAO 0769 /* ------------------------- */ 
0720 mov (sp) +,PS 0770 .globl _runrun, _swtch 
0721 rts pe 0771 calll: 

0722 0772 tst - (sp) 

0723 /* ------------------------- */ 0773 bic $340,PS 

0724 .globl Savu, retu, aretu 0774 br 1f 

0725 savu: 0775 

0726 bis $340,PS 0776 call: 

0727 mov (sp) +,r1 0777 mov PS, - (sp) 

0728 mov (sp) ,r0 0778 1: 

0729 mov sp, (r0)+ 0779 mov r1,- (sp) 

0730 mov r5, (r0) + 0780 mfpi sp 

0731 bic $340,PS 0781 mov 4(sp),- (sp) 
0732 jmp (v1) 0782 bic $137, (sp) 

0733 0783 bit $30000,PS 

0734 aretu: 0784 beq 1f 

0735 bis $340,PS 0785 jsr pe,*(r0)+ 

0736 mov (sp) +,r1 0786 2: 

0737 mov (sp) ,r0 0787 bis $340,PS 

0738 br 1f 0788 tstb _runrun 

0739 0789 beq 2£ 

0740 retu: 0790 bic $340,PS 

0741 bis $340,PS 0791 jsr ps, swtch 

0742 mov (sp)+,r1 0792 br 2b 

0743 mov (sp) ,r0 0793 2: 

0744 mov $ u,r0 0794 tst (sp) + 

0745 1: 0795 mtpi sp 

0746 mov (x0) +,sp 0796 br 2£ 

0747 mov (r0)+,r5 0797 1: 

0748 bic $340,PS 0798 bis $30000,PS 

0749 jmp (r1) 0799 jsr pe,*(r0)+ 
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cmp (sp) +, (sp) + 
2: 

mov (sp)+,r1 

tst (sp) + 

mov (sp) +,r0 

rtt 
[* --- 2 een nnnnneeeeeee 
-globl _fubyte, _subyte 
[® --- 2 eee nnn ene eee 
-globl _fuibyte, _suibyte 
[® --- nee nnn nn nn eee 
-globl _fuword, _suword 
[® wn nee enn nn nn eee 
-globl _fuiword, _suiword 
_fuibyte: 
_fubyte: 

mov 2(sp),r1 

bic $1,r1 

jsr pc, gword 

cmp r1,2(sp) 

beq 1f 

swab r0 
Ts 

bic $!377,r0 

rts pe 
_suibyte: 
_subyte: 

mov 2(sp),r1 

bic $1,r1 

jsr pc, gword 

mov r0,- (sp) 

cmp r1,4 (sp) 

beq lf 

movb 6(sp),1(sp) 

br 2£ 
1: 

movb 6 (sp), (sp) 
Zi: 

mov (sp) +,r0 

jsr pc,pword 

elr r0 

rts pe 
_fuiword: 
_fuword: 

mov 2(sp),r1 
fuword: 

jsr pc, gword 

rts pe 
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gword: 
mov PS, - (sp) 
bis $340,PS 
mov nofault, - (sp) 
mov $err,nofault 
mfpi (r1) 
mov (sp)+,r0 
br 1f£ 
_suiword: 
_suword: 
mov 2(sp),r1 
mov 4(sp),r0 
suword: 
jsr pc,pword 
rts pe 
pword: 
mov PS, - (sp) 
bis $340,PS 
mov nofault, - (sp) 
mov $err,nofault 
mov r0,- (sp) 
mtpi (r1) 
1: 
mov (sp) +,nofault 
mov (sp) +,PS 
rts pe 
err: 
mov (sp) +,nofault 
mov (sp) +,PS 
tst (sp) + 
mov $-1,r0 
rts pe 
[* ------ 2-H ee */ 
globl savfp, display 
_savfp 
_display: 
rts pe 
[* ----- 2-2 en -------eee */ 
-globl _incupe 
incupc: 
mov r2,- (sp) 
mov 6(sp),r2 / base of prof with base,leng,off,scale 
mov 4(sp),r0 / pe 
sub 4(r2),r0 / offset 
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0900 clc 0950 add $2, (r1) 

0901 ror r0 0951 2: 

0902 mul 6(r2),xr0 / scale 0952 dec r2 

0903 ashc $-14.,r0 0953 bic $7,r2 

0904 inc r1 0954 mov _cfreelist, (r2) 
0905 bic $1,r1 0955 mov r2, cfreelist 
0906 cmp r1,2(r2) / length 0956 3: 

0907 bhis 1f£ 0957 mov (sp)+,r2 

0908 add (r2),r1 / base 0958 mov (sp) +,PS 

0909 mov nofault, - (sp) 0959 rts pe 

0910 mov $2£,nofault 0960 9: 

0911 mfpi (v1) 0961 clr 4(r1) 

0912 inc (sp) 0962 mov $-1,r0 

0913 mtpi (r1) 0963 mov (sp) +,r2 

0914 br 3£ 0964 mov (sp) +,PS 

0915 2: 0965 rts pe 

0916 clr 6 (r2) 0966 

0917 3: 0967 putc: 

0918 mov (sp) +,nofault 0968 mov 2(sp),r0 

0919 1: 0969 mov 4(sp),r1 

0920 mov (sp) +,r2 0970 mov PS, - (sp) 

0921 rts pe 0971 mov r2,- (sp) 

0922 0972 mov r3,- (sp) 

0923 / Character list get/put 0973 bis $340,PS 

0924 0974 bic $100,Ps / spl 5 
0925 /* ------------------------- */ 0975 Mov 4(r1),r2 / last ptr 
0926 .globl _getc, _putc 0976 bne Lf 

0927 /* ------------------------- */ 0977 Mov _cfreelist,r2 
0928 .globl _cfreelist 0978 beq 9f 

0929 0979 mov (v2), cfreelist 
0930 getc: 0980 clr (r2)+ 

0931 mov 2(sp),r1 0981 mov r2,2(r1) / first ptr 
0932 mov PS, - (sp) 0982 br 2£ 

0933 mov r2,- (sp) 0983 1: 

0934 bis $340,PS 0984 bit $7,412 

0935 bic $100,PSs / spl 5 0985 bne 2£ 

0936 mov 2(r1),r2 / first ptr 0986 mov _cfreelist,r3 
0937 beq 9f£ / empty 0987 beq 9f 

0938 movb (r2)4+,r0 / character 0988 mov (v3), cfreelist 
0939 bic $!377,r0 0989 mov r3,-10(r2) 

0940 mov r2,2(r1) 0990 mov £3.02 

0941 dec (x1) + / count 0991 clr (r2) + 

0942 bne 1f£ 0992 2: 

0943 clr (v1) + 0993 movb r0, (r2) + 

0944 clr (r1)+ / last block 0994 mov r2,4(r1) 

0945 br 2£ 0995 inc (r1) / count 
0946 1: 0996 clr r0 

0947 bit $7,xr2 0997 mov (sp) +,r3 

0948 bne SE 0998 mov (sp) +,r2 

0949 mov -10(r2), (r1) / next block 0999 mov (sp) +,PS 
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1000 rts pe 

1001 9: 

1002 mov pe,r0 

1003 mov (sp) +,xr3 
1004 mov (sp) +,r2 
1005 mov (sp) +,PS 
1006 rts pe 

1007 

1008 /* ------------------------- */ 
1009 .globl _backup 
1010 /* ------------------------- */ 
1011 .globl _regloc 
1012 backup: 

1013 mov 2(sp),ssr+2 
1014 mov r2,- (sp) 
1015 jsr pc, backup 
1016 mov r2,ssr+2 
1017 mov (sp) +,r2 
1018 movb jflg,r0 
1019 bne 2£ 

1020 mov 2(sp),r0 
1021 movb ssr+2,r1 
1022 jsr pe,1lf 

1023 movb ssr+3,r1 
1024 jsr pe,1lf 

1025 movb _regloc+7,r1 
1026 asl rl 

1027 add r0,rl 

1028 mov ssr+4, (r1) 
1029 elr r0 

1030 2: 

1031 rts pe 

1032 1: 

1033 mov r1,- (sp) 
1034 asr (sp) 

1035 asr (sp) 

1036 asr (sp) 

1037 bic $!7,r1 

1038 movb _regloc(rl1),r1 
1039 asl rl 

1040 add r0,r1 

1041 sub (sp) +, (r1) 
1042 rts pe 

1043 


1044 / hard part 

1045 / simulate the ssr2 register missing on 11/40 
1046 

1047 backup: 

1048 clr r2 / backup register ssrl1 
1049 mov $1,bflg / clrs jflg 
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1050 mov ssr+4,r0 

1051 jsr pe,fetch 

1052 mov r0,r1 

1053 ash $-11.,r0 

1054 bic $!36,r0 

1055 jmp *0f (r0) 

1056 0: t00; t01; t02; t03; t04; t05; t06; t07 
1057 t10; t11; t12; t13; t14; t15; t16; t17 
1058 

1059 t00: 

1060 clrb bflg 

1061 

1062 t10: 

1063 mov r1,r0 

1064 swab r0 

1065 bic $!16,r0 

1066 jmp *0f (r0) 

1067 O: u0; ul; u2; u3; u4; u5; u6; u7 
1068 

1069 ué: / single op, m[tf]pi, sxt, illegal 
1070 bit $400,r1 

1071 beq u5 / all but m[tf], sxt 
1072 bit $200,r1 

1073 beq 1f£ / mfpi 

1074 bit $100,r1 

1075 bne u5 / sxt 

1076 

1077 / simulate mtpi with double (sp)+,dd 

1078 bic $4000,r1 / turn instr into (sp)+ 
1079 br tol 

1080 

1081 / simulate mfpi with double ss, - (sp) 

1082 1: 

1083 ash $6,r1 

1084 bis $46,r1 / -(sp) 

1085 br to1 

1086 

1087 u4: / jsr 

1088 mov r1,r0 

1089 jsr pc, setreg / assume no fault 
1090 bis $173000,r2 / -2 from sp 

1091 rts pe 

1092 

1093 t07: / EIS 

1094 clrb bflg 

1095 

1096 ud: / jmp, swab 

1097 u5: / single op 

1098 mov r1,r0 

1099 br setreg 
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1100 1150 add ssr+2,r0 
1101 t01: / mov 1151 MOv (r0),r0 
1102 t02: / cmp 1152 

1103 t03: / bit 1153 / if reg has been incremented, 
1104 t04: / bic 1154 / must decrement it before fetch 
1105 t05: / bis 1155 

1106 t06: / add 1156 bit $174000,r2 
1107 t16: / sub 1157 ble 2£ 

1108 clrb bflg 1158 dec r0 

1109 1159 bit $10000,r2 
1110 t11: / movb 1160 beq 2£ 

1111 12: / cmpb 1161 dec r0 

1112 t13: / bitb 1162 2: 

1113 t14: / bicb 1163 

1114 t15: / bisb 1164 / if mode is 6,7 fetch and add X(R) to R 
1115 mov r1,r0 1165 

1116 ash $-6,x0 1166 bit $4000,r1 
1117 jsr pce, setreg 1167 beq 2£ 

1118 swab r2 1168 bit $2000,r1 
1119 mov r1,r0 1169 beq 2£ 

1120 jsr pce,setreg 1170 mov r0,- (sp) 
1121 1171 mov ssr+4,r0 
1122 / if delta(dest) is zero, 1172 sdd $2,r0 

1123 / no need to fetch source 1173 jsr pc, fetch 
1124 1174 add (sp)+,r0 
1125 bit $370,r2 1175 2: 

1126 beq 1f£ 1176 

1127 1177 / fetch operand 

1128 / if mode(source) is R, 1178 / if mode is 3,5,7 fetch * 
1129 / no fault is possible 1179 

1130 1180 jsr pe,fetch 
1131 bit $7000,r1 1181 bit $1000,r1 
1132 beq 1f£ 1182 beq 1f£ 

1133 1183 bit $6000,r1 
1134 / if reg(source) is reg(dest), 1184 bne fetch 

1135 / too bad. 1185 1: 

1136 1186 rts pe 

1137 mov r2,- (sp) 1187 

1138 bic $174370, (sp) 1188 t17: / illegal 
1139 cmpb 1(sp), (sp) + 1189 ul: / br 

1140 beq t17 1190 u2: / br 

1141 1191 u3: / br 

1142 / start source cycle 1192 u7: / illegal 
1143 / pick up value of reg 1193 incb jflg 

1144 1194 rts pe 

1145 mov r1,r0 1195 

1146 ash $-6,r0 1196 setreg: 

1147 bic $!7,r0 1197 mov r0, - (sp) 
1148 movb _regloc(r0),r0 1198 bic $!7,r0 
1149 asl r0 1199 bis r0,r2 
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1200 mov (sp) +,r0 

1201 ash $-3,r0 

1202 bic $!7,x0 

1203 movb Of (r0),r0 
1204 tstb bflg 

1205 beq 1f 

1206 bit $2,472 

1207 beq 2£ 

1208 bit $4,r2 

1209 beq 2£ 

1210 1: 

1211 cmp r0,$20 

1212 beq 2£ 

1213 cmp r0,$-20 

1214 beq 2£ 

1215 asl r0 

1216 2: 

1217 bisb r0,4r2 

1218 rts pe 

1219 

1220 0: .byte 0,0,10,20,-10,-20,0,0 
1221 

1222 fetch: 

1223 bic $1,r0 

1224 mov nofault, - (sp) 
1225 mov $1£,nofault 
1226 mfpi (r0) 

1227 mov (sp) +,r0 

1228 mov (sp) +,nofault 
1229 rts pe 

1230 

1231 1: 

1232 mov (sp) +,nofault 
1233 clrb r2 

1234 mov $-1,r0 

1235 rts pe 

1236 

1237 .bss 

1238 bflg: .=.t1 

1239 jflg: -=.t¢1 

1240 .text 

1241 

1242 /* ------------------------- 
1243 .globl _copyin, _copyout 
1244 copyin: 

1245 jsr pc,copsu 

1246 1: 

1247 mfpi (x0) + 

1248 mov (sp) +, (r1)+ 
1249 sob r2,1b 


/ clear out dest on fault 


*/ 
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1250 br 2£ 

1251 

1252 _copyout: 

1253 jsr pc, copsu 

1254 1: 

1255 mov (r0) +, - (sp) 
1256 mtpi (x1) + 

1257 sob r2,1b 

1258 2: 

1259 mov (sp) +,nofault 
1260 mov (sp) +,r2 

1261 clr r0 

1262 rts pe 

1263 

1264 copsu: 

1265 mov (sp)+,r0 

1266 mov r2,- (sp) 

1267 mov nofault, - (sp) 
1268 mov r0,- (sp) 

1269 mov 10(sp),r0 
1270 mov 12(sp),r1 
1271 mov 14 (sp) ,r2 
1272 asr r2 

1273 mov $1£,nofault 
1274 rts pe 

1275 

1276 1: 

1277 mov (sp) +,nofault 
1278 mov (sp) +,r2 

1279 mov $-1,r0 

1280 rts pe 

1281 

1282 /* ------------------------- */ 
1283 .globl idle 

1284 idle: 

1285 mov PS, - (sp) 

1286 bic $340,PS 

1287 wait 

1288 mov (sp) +,PS 

1289 rts pe 

1290 

1291 /* ------------------------- */ 
1292 .globl spl0, _spll, _spl4, _spl15, spl6, spl7 
1293 _spl0: 

1294 bic $340,PS 

1295 rts pe 

1296 

1297 spll: 

1298 bis $40,PS 

1299 bic $300,PS 
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1300 rts pe 1350 

1301 1351 /* ------------------------- */ 
1302 spl4: 1352 .globl dump 

1303 spl5: 1353 dump: 

1304 bis $340,PS 1354 bit $1,SSRO 

1305 bic $100,PS 1355 bne dump 

1306 rts pe 1356 

1307 1357 / save regs r0,r1,r2,r3,r4,r5,r6,KIA6 
1308 splé: 1358 / starting at abs location 4 

1309 bis $340,PS 1359 

1310 bic $40,PS 1360 mov r0,4 

1311 rts pe 1361 mov $6,xr0 

1312 1362 mov r1, (r0)+ 

1313 _spl7: 1363 mov r2, (r0)+ 

1314 bis $340,PS 1364 mov r3, (r0) + 

1315 rts pe 1365 mov v4, (r0)+ 

1316 1366 mov v5, (r0)+ 

1317 /* ------------------------- */ 1367 mov sp, (r0)+ 

1318 .globl _dpadd 1368 mov KISA6, (r0) + 

1319 dpadd: 1369 

1320 mov 2(sp),r0 1370 / dump all of core (ie to first mt error) 
1321 add 4(sp),2(r0) 1371 / onto mag tape. (9 track or 7 track ‘binary’ ) 
1322 adc (r0) 1372 

1323 rts pe 1373 mov $MTC,r0 

1324 1374 mov $60004, (r0) + 

1325 /* ------------------------- */ 1375 clr 2(r0) 

1326 .globl _dpcmp 1376 1: 

1327 _dpcmp: 1377 mov $-512., (r0) 

1328 mov 2(sp),r0 1378 inc - (r0) 

1329 mov 4(sp),r1 1379 2+ 

1330 sub 6(sp),r0 1380 tstb (r0) 

1331 sub 8(sp),r1 1381 bge 2b 

1332 sbc r0 1382 tst (r0) + 

1333 bge 1f£ 1383 bge 1b 

1334 cmp r0,$-1 1384 reset 

1335 bne 2£ 1385 

1336 cmp r1,$-512. 1386 / end of file and loop 

1337 bhi 3f£ 1387 

1338 2: 1388 mov $60007, - (r0) 

1339 mov $-512.,r0 1389 br 

1340 rts pe 1390 

1341 1: 1391 /* ------------------------- */ 
1342 bne 2£ 1392 .globl _idiv 

1343 cmp r1,$512. 1393 ldiv: 

1344 blo 3f£ 1394 clr r0 

1345 2: 1395 mov 2(sp),r1 

1346 mov $512.,r1 1396 div 4(sp),r0 

1347 3: 1397 rts pe 

1348 mov r1,r0 1398 

1349 rts pe 1399 /* ------------------------- */ 
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1400 .globl _irem 1450 MTC = 172522 
1401 lrem: 1451 UISAO = 177640 
1402 clr ro 1452 UISA1 = 177642 
1403 mov 2(sp),r1 1453 UISDO = 177600 
1404 div 4(sp),r0 1454 UISD1 = 177602 
1405 mov r1,r0 1455 IO = 7600 

1406 rts pe 1456 

1407 1457 .data 

1408 /* ------------------------- */ 1458 /* ------------------------- */ 
1409 .globl _ishift 1459 .globl _ka6, _cputype 
1410 Ilshift: 1460 kaé: KISA6 
1411 mov 2(sp),r1 1461 cputype:40. 

1412 mov (r1)+,r0 1462 

1413 mov (r1),r1 1463 .bss 

1414 ashe 4(sp),r0 1464 /* ------------------------- */ 
1415 mov r1,r0 1465 .globl nofault, ssr, badtrap 
1416 rts pe 1466 nofault: .=.+2 

1417 1467 ssr: -=.+6 
1418 /* ------------------------- */ 1468 badtrap:.=.+2 

1419 .globl csv 1469 

1420 csv: 1470 

1421 mov r5,r0 1471 

1422 mov sp,r5 1472 

1423 mov r4,- (sp) 1473 

1424 mov r3,- (sp) 1474 

1425 mov r2,- (sp) 1475 

1426 jsr pe, (r0) 1476 

1427 1477 

1428 /* ------------------------- */ 1478 

1429 .globl cret 1479 

1430 cret: 1480 

1431 mov r5;r1 1481 

1432 mov -(r1),r4 1482 

1433 mov -(r1),r3 1483 

1434 mov -(r1),r2 1484 

1435 mov r5,sp 1485 

1436 mov (sp)+,r5 1486 

1437 rts pe 1487 

1438 1488 

1439 /* ------------------------- */ 1489 

1440 .globl _u 1490 

1441 _u = 140000 1491 

1442 USIZE = 16. 1492 

1443 1493 

1444 Ps = 177776 1494 

1445 SSRO = 177572 1495 

1446 SSR2 = 177576 1496 

1447 KISAO = 172340 1497 

1448 KISA6 = 172354 1498 

1449 KISDO = 172300 1499 
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1500 # 1550 main() 

1501 #include "../param.h" 1551 { 

1502 #include "../user.h" 1552 extern schar; 

1503 #include "../systm.h" 1553 register i, *p; 

1504 #include "../proc.h" 1554 

1505 #include "../text.h" 1555 /* 

1506 #include "../inode.h" 1556 * zero and free all of core 

1507 #include "../seg.h" 1557 */ 

1508 1558 

1509 #define CLOCK1 0177546 1559 updlock = 0; 

1510 #define CLOCK2 0172540 1560 i = *ka6é + USIZE; 

1511 /* 1561 UISD->r[0] = 077406; 

1512 * Icode is the octal bootstrap 1562 for(;;) { 

1513 * program executed in user mode 1563 UISA->r[0] = i; 

1514 * to bring up the system. 1564 if(fuibyte(0) < 0) 

1515 */ 1565 break; 

1516 int icode[] 1566 clearseg (i); 

1517 { 1567 maxmem++; 

1518 0104413, /* sys exec; init; initp */ 1568 mfree(coremap, 1, i); 

1519 0000014, 1569 i++; 

1520 0000010, 1570 

1521 0000777, /* br . */ 1571 if(cputype == 70) 

1522 0000014, /* initp: init; 0 */ 1572 for(i=0; i<62; i=+2) { 

1523 0000000, 1573 UBMAP->r[i] = i<<12; 

1524 0062457, /* init: </etc/init\0> */ 1574 UBMAP->r[i+1] = 0; 

1525 0061564, 1575 

1526 0064457, 1576 printf ("mem = %1\n", maxmem*5/16) ; 
1527 0064556, 1577 printf ("RESTRICTED RIGHTS\n\n") ; 
1528 0000164, 1578 printf("Use, duplication or disclosure is subject to\n"); 
1529 }; 1579 printf ("restrictions stated in Contract with Western\n") ; 
1530 /* ------------------------- */ 1580 printf ("Electric Company, Inc.\n"); 
1531 1581 

1532 /* 1582 maxmem = min(maxmem, MAXMEM) ; 

1533 * Initialization code. 1583 mfree(swapmap, nswap, swplo); 

1534 * Called from m40.s or m45.s as 1584 

1535 * soon as a stack and segmentation 1585 /* 

1536 * have been established. 1586 * set up system process 

1537 * Functions: 1587 */ 

1538 * clear and free user core 1588 

1539 * find which clock is configured 1589 proc[0].p addr = *ka6; 

1540 * hand craft Oth process 1590 proc[0].p size = USIZE; 

1541 * call all initialization routines 1591 proc[0].p stat = SRUN; 

1542 * fork - process 0 to schedule 1592 proc[0].p flag =| SLOAD|SSsys; 

1543 * - process 1 execute bootstrap 1593 u.u_procp = &proc[0]; 

1544 * 1594 

1545 * panic: no clock -- neither clock responds 1595 /* 

1546 * loop at loc 6 in user mode -- /etc/init 1596 * determine clock 

1547 * cannot be executed 1597 */ 

1548 */ 1598 

1549 1599 UISA->r[7] = ka6[1]; /* io segment */ 
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1600 UISD->r[7] = 077406; 1650 estabur(nt, nd, ns, sep) 

1601 lks = CLOCK1; 1651 { 

1602 if (fuiword(lks) == -1) { 1652 register a, *ap, *dp; 

1603 lks = CLOCK2; 1653 

1604 if(fuiword(lks) == -1) 1654 if(sep) { 

1605 panic("no clock") ; 1655 if(cputype == 40) 

1606 } 1656 goto err; 

1607 *lks = 0115; 1657 if(nseg(nt) > 8 || nseg(nd)+nseg(ns) > 8) 
1608 1658 goto err; 

1609 /® 1659 } else 

1610 * set up ‘known’ i-nodes 1660 if (nseg(nt)+nseg(nd)+nseg(ns) > 8) 
1611 */ 1661 goto err; 

1612 1662 if (nt+nd+ns+USIZE > maxmem) 
1613 cinit(); 1663 goto err; 

1614 binit(); 1664 a= 0; 

1615 iinit(); 1665 ap = &u.u_uisa[0]; 

1616 rootdir = iget(rootdev, ROOTINO) ; 1666 dp = &u.u_uisd[0]; 

1617 rootdir->i flag =& ~ILOCK; 1667 while(nt >= 128) { 

1618 u.u_cdir = iget(rootdev, ROOTINO) ; 1668 *dp++ = (127<<8) | RO; 
1619 u.u_cdir->i flag =& ~ILOCK; 1669 *apt+ = a; 

1620 1670 a =+ 128; 

1621 /* 1671 nt =- 128; 

1622 * make init process 1672 

1623 * enter scheduling loop 1673 if(nt) { 

1624 * with system process 1674 *dp++ = ((nt-1)<<8) | RO; 
1625 */ 1675 *ap++ = a; 

1626 1676 

1627 if (newproc()) { 1677 if (sep) 

1628 expand (USIZE+1) ; 1678 while(ap < &u.u_uisa[8]) { 
1629 estabur(0, 1, 0, 0); 1679 *apt+ = 0; 

1630 copyout (icode, 0, sizeof icode) ; 1680 *dp++ = 0; 

1631 /* 1681 } 

1632 * Return goes to loc. 0 of user init 1682 a = USIZE; 

1633 * code just copied out. 1683 while(nd >= 128) { 

1634 */ 1684 *dp++ = (127<<8) | RW; 
1635 return; 1685 *apt++ = a; 

1636 } 1686 a =+ 128; 

1637 sched () ; 1687 nd =- 128; 

1638 } 1688 

1639 /* ------------------------- */ 1689 if(nd) { 

1640 1690 *dp++ = ((nd-1)<<8) | RW; 
1641 /* 1691 *ap++ = a; 

1642 * Set up software prototype segmentation 1692 a =+ nd; 

1643 * registers to implement the 3 pseudo 1693 

1644 * text,data,stack segment sizes passed 1694 while(ap < &u.u_uisa[8]) { 
1645 * as arguments. 1695 *dp++ = 0; 

1646 * The argument sep specifies if the 1696 *apt++ = 0; 

1647 * text and data+stack segments are to 1697 

1648 * be separated. 1698 if (sep) 

1649 */ 1699 while(ap < &u.u_uisa[16]) { 
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0; 
0; 


*dpt++ 
*aptt+ 


} 


a =+ ns; 
while(ns >= 128) { 


a =- 128; 
ns =- 128; 
*--dp = (127<<8) | RW; 
*--ap = a; 
if(ns) { 
*--dp = ((128-ns)<<8) | RW | ED; 
*--ap = a-128; 
if(!sep) { 
ap = &u.u_uisa[0]; 
dp = &u.u_uisa[8]; 
while(ap < &u.u_uisa[8]) 
*dp++ = *apt+t; 
ap = &u.u_uisd[0]; 
dp = &u.u_uisd[8]; 
while(ap < &u.u_uisd[8]) 
*dp++ = *apt+t; 
} 
sureg(); 
return (0) ; 
err: 
u.u_error = ENOMEM; 
return (-1); 
} 
/*---------------------- */ 
/* 
* Load the user hardware segmentation 
* registers from the software prototype. 
* The software registers must have 
* been setup prior by estabur. 
*/ 
sureg () 


register *up, *rp, a; 


a = u.u_procp->p addr; 
up = &u.u_uisa[16]; 
rp = &UISA->r[16]; 
if(cputype == 40) { 
up =- 8; 
rp =- 8; 
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1750 
1751 
1752 
1753 


while(rp > &UISA->r[0]) 
*--rp = *--up + a; 
if ((up=u.u_procp->p_textp) 
a =- up->x_caddr; 
1754 up = &u.u_uisd[16]; 
1755 rp = &UISD->r[16]; 
1756 if(cputype == 40) { 
1757 up =- 8; 
1758 rp =- 8; 
1759 
1760 
1761 
1762 
1763 
1764 } 
1765 } 
1766 /* 
1767 
1768 /* 
1769 * Return the arg/128 rounded up. 
1770 */ 
1771 nseg(n) 
1772 
1773 
1774 
1775 } 
1776 /* 
1777 
1778 
1779 
1780 
1781 
1782 
1783 
1784 
1785 
1786 
1787 
1788 
1789 
1790 
1791 
1792 
1793 
1794 
1795 
1796 
1797 
1798 
1799 


!= NULL) 


while(rp > &UISD->r[0]) { 
*--rp = *--up; 
if((*rp & WO) == 0) 
rp[(UISA-UISD)/2] =- a; 


Tas a et nt ff fee pen meena et */ 


return ((n+127) >>7) ; 


Soe a elaine aera eae Sree eee */ 
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1800 # 

1801 /* 

1802 */ 

1803 

1804 #include "../param.h" 

1805 #include "../user.h" 

1806 #include "../proc.h" 

1807 #include "../text.h" 

1808 #include "../systm.h" 

1809 #include "../file.h" 

1810 #include "../inode.h" 

1811 #include "../buf.h" 

1812 /* ------------------------- */ 

1813 /* 

1814 * Create a new process-- the internal version of 

1815 * sys fork. 

1816 * It returns 1 in the new process. 

1817 * How this happens is rather hard to understand. 

1818 * The essential fact is that the new process is created 
1819 * in such a way that it appears to have started executing 
1820 * in the same call to newproc as the parent; 

1821 * but in fact the code that runs is that of swtch. 
1822 * The subtle implication of the return value of swtch 
1823 * (see above) is that this is the value that newproc’s 
1824 * caller in the new process sees. 

1825 */ 

1826 newproc() 

1827 

1828 int al, a2; 

1829 struct proc *p, *up; 

1830 register struct proc *rpp; 

1831 register *rip, n; 

1832 

1833 p = NULL; 

1834 /* 

1835 * First, just locate a slot for a process 

1836 * and copy the useful info from this process into it. 
1837 * The panic "cannot happen" because fork already 
1838 * checked for the existence of a slot. 

1839 */ 

1840 retry: 

1841 mpid++; 

1842 if(mpid < 0) { 

1843 mpid = 0; 

1844 goto retry; 

1845 } 

1846 for(rpp = &proc[0]; rpp < &proc[NPROC]; rpp++) { 
1847 if(rpp->p_stat == NULL && p==NULL) 

1848 p = rpp; 

1849 if (rpp->p_pid==mpid) 
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1850 goto retry; 

1851 } 

1852 if ((rpp = p)==NULL) 

1853 panic("no procs") ; 

1854 

1855 /* 

1856 * make proc entry for new proc 

1857 */ 

1858 

1859 rip = u.u_procp; 

1860 up = rip; 

1861 rpp->p_stat = SRUN; 

1862 rpp->p_flag = SLOAD; 

1863 rpp->p_uid = rip->p_ uid; 

1864 rpp->p_ttyp = rip->p_ttyp; 

1865 rpp->p_ nice = rip->p_nice; 

1866 rpp->p_textp = rip->p_textp; 

1867 rpp->p_pid = mpid; 

1868 rpp->p_ppid = rip->p_ppid; 

1869 rpp->p_time = 0; 

1870 

1871 /* 

1872 * make duplicate entries 

1873 * where needed 

1874 */ 

1875 

1876 for(rip = &u.u_ofile[0]; rip < &u.u_ofile[NOFILE] ;) 
1877 if((rpp = *rip++) != NULL) 
1878 rpp->f count++; 

1879 if((rpp=up->p_textp) != NULL) { 

1880 rpp->x_count++; 

1881 rpp->x_ccount++; 

1882 } 

1883 u.u_cdir->i_count++; 

1884 /* 

1885 * Partially simulate the environment 
1886 * of the new process so that when it is actually 
1887 * created (by copying) it will look right. 
1888 */ 

1889 savu(u.u_rsav) ; 

1890 <pp = Pi 

1891 u.u_procp = rpp; 

1892 rip = up; 

1893 n = rip->p_ size; 

1894 al = rip->p_addr; 

1895 rpp->p_size = n; 

1896 a2 = malloc(coremap, n); 

1897 /* 

1898 * If there is not enough core for the 
1899 * new process, swap put the current process to 
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* generate the copy. 
*/ 
if(a2 == NULL) { 
rip->p_stat = SIDL; 
rpp->p_addr = al; 
savu(u.u_ssav) ; 
xswap(rpp, 0, 0); 
rpp->p_flag =| SSWAP; 
rip->p_stat = SRUN; 
} else { 
/* 
* There is core, so just copy. 
*/ 
rpp->p_addr = a2; 
while (n--) 
copyseg(al++, a2++); 
} rs 
u.u_procp = rip; 
return (0) ; 
} 
[*® ---- een nn eee */ 
/* 
* The main loop of the scheduling (swapping) 
* process. 
* The basic idea is: 
* see if anyone wants to be swapped in; 
* swap out processes until there is room; 
* swap him in; 
* repeat. 
* Although it is not remarkably evident, the basic 
* synchronization here is on the runin flag, which is 
* slept on and is set once per second by the clock routine. 
* Core shuffling therefore take place once per second. 
* 
* panic: swap error -- IO error while swapping. 
* this is the one panic that should be 
* handled in a less drastic way. Its 
* very hard. 
*/ 
sched () 
{ 


struct proc *p1; 
register struct proc *rp; 
register a, n; 


/* 
* find user to swap in 
* of users ready, select one out longest 


*/ 


J. Lions, 1976 


Sheet 19 


Western Electric Company, NY 


Sep 1 09:28 1988 unix/slp.c Page 4 

1950 

1951 goto loop; 

1952 

1953 sloop: 

1954 runin++; 

1955 sleep(&runin, PSWP); 

1956 

1957 loop: 

1958 spl6(); 

1959 n= -1; 

1960 for(rp = &proc[0]; rp < &proc[NPROC]; rp++) 
1961 if(rp->p_stat==SRUN && (rp->p_ flag&SLOAD)==0 && 
1962 rp->p_ time >n) { 

1963 pl = 26s 

1964 n = rp->p_time; 

1965 

1966 if(n == -1) { 

1967 runout++; 

1968 sleep(&runout, PSWP) ; 

1969 goto loop; 

1970 } 

1971 

1972 /* 

1973 * see if there is core for that process 
1974 */ 

1975 

1976 sp10(); 

1977 rp = pl; 

1978 a = rp->p_size; 

1979 if ((rp=rp->p_textp) != NULL) 

1980 if (rp->x_ccount == 0) 

1981 a =+ rp->x_size; 

1982 if ((a=malloc(coremap, a)) != NULL) 

1983 goto found2; 

1984 

1985 /* 

1986 * none found, 

1987 * look around for easy core 

1988 */ 

1989 

1990 slp6(); 

1991 for(rp = &proc[0]; rp < &proc[NPROC]; rp++) 
1992 if ((rp->p_flag& (SSYS|SLOCK|SLOAD))==SLOAD && 
1993 (rp->p_stat == SWAIT || rp->p_stat==SSTOP) ) 
1994 goto foundl; 

1995 

1996 /* 

1997 * no easy core, 

1998 * if this process is deserving, 

1999 * look around for 
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2000 * oldest process in core 

2001 */ 

2002 

2003 if(n < 3) 

2004 goto sloop; 

2005 n= -1; 

2006 for(rp = &proc[0]; rp < &proc[NPROC]; rp++) 
2007 if ((rp->p_flag&(SSYS|SLOCK|SLOAD))==SLOAD && 
2008 (rp->p_stat==SRUN || rp->p_stat==SSLEEP) && 
2009 rp->p_time > n) 

2010 pl = rp; 

2011 n = rp->p_time; 

2012 

2013 if(n < 2) 

2014 goto sloop; 

2015 rp = pl; 

2016 

2017 /* 

2018 * swap user out 

2019 */ 

2020 

2021 found1: 

2022 slp0(); 


2023 rp->p_ flag =& ~SLOAD; 

2024 xswap(rp, 1, 0); 

2025 goto loop; 

2026 

2027 /* 

2028 * swap user in 

2029 */ 

2030 

2031 found2: 

2032 if((rp=pl->p_textp) != NULL) { 

2033 if(rp->x_ccount == 0) { 

2034 if (swap(rp->x_daddr, a, rp->x_size, B READ) ) 
2035 goto swaper; 

2036 rp->x_caddr = a; 

2037 a =+ rp->x_size; 

2038 } 

2039 rp->x_ccount++; 

2040 } 

2041 ¥p = pis 

2042 if (swap(rp->p_addr, a, rp->p_size, B_READ) ) 
2043 goto swaper; 

2044 mfree(swapmap, (rp->p_size+7)/8, rp->p_addr); 
2045 rp->p_addr = a; 

2046 rp->p_flag =| SLOAD; 

2047 rp->p_time = 0; 

2048 goto loop; 

2049 
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2050 swaper: 


2051 panic("swap error"); 

2052 } 

2053 /* ------------------------- */ 

2054 

2055 /* 

2056 * Give up the processor till a wakeup occurs 
2057 * on chan, at which time the process 

2058 * enters the scheduling queue at priority pri. 
2059 * The most important effect of pri is that when 
2060 * pri<0 a signal cannot disturb the sleep; 
2061 * if the pri>=0 signals will be processed. 
2062 * Callers of this routine must be prepared for 
2063 * premature return, and check that the reason for 
2064 * sleeping has gone away. 

2065 */ 

2066 sleep(chan, pri) 

2067 { 

2068 register *rp, s; 

2069 

2070 s = PS->integ; 

2071 rp = u.u_procp; 

2072 if(pri >= 0) { 

2073 if (issig()) 

2074 goto psig; 

2075 spl6(); 

2076 rp->p_wchan = chan; 

2077 rp->p_stat = SWAIT; 

2078 rp->p_pri = pri; 

2079 spl0(); 

2080 if(runin != 0) { 

2081 runin = 0; 

2082 wakeup (&runin) ; 

2083 

2084 swtch () ; 

2085 if (issig()) 

2086 goto psig; 

2087 } else { 

2088 spl6(); 

2089 rp->p_wchan = chan; 

2090 rp->p_stat = SSLEEP; 

2091 rp->p_pri = pri; 

2092 spl0(); 

2093 swtch () ; 

2094 } 

2095 PS->integ = s; 

2096 return; 

2097 

2098 /* 

2099 * If priority was low (>=0) and 
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* there has been a signal, 
* execute non-local goto to 
* the qsav location. 

* (see trapl/trap.c) 


*/ 


psig: 


/* 


* 


aretu(u.u_qsav) ; 


*/ 


Wake up all processes sleeping on chan. 


*/ 


wakeup (chan) 


{ 


/* 
* 
* 


register struct proc *p; 
register c, i; 


chan; 

Pp &proc[0]; 
i = NPROC; 

do { 


c 


if(p->p_wchan == c) { 
setrun (p) ; 
} 


ptt; 
} while(--i); 


ay: 


Set the process running; 


arrange for it to be swapped in if necessary. 


*/ 


setrun (p) 


register struct proc *rp; 


rp = Pi 

rp->p_wchan = 0; 

rp->p_stat = SRUN; 

if(rp->p_pri < curpri) 
runrun++; 

if(runout != 0 && (rp->p_flag&SLOAD) == 
runout = 0; 
wakeup (&runout) ; 


0) { 


*/ 
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* Set user priority. 

* The rescheduling flag (runrun) 

* is set if the priority is higher 

* than the currently running process. 
a7; 

setpri (up) 


register *pp, p; 


PP = up; 
p = (pp->p_cpu & 0377)/16; 
p =+ PUSER + pp->p_ nice; 
if(p > 127) 
p = 127; 
if(p > curpri) 
runrun++; 
pp->p_pri = pi 
*/ 


* This routine is called to reschedule the CPU. 
* if the calling process is not in RUN state, 
* arrangements for it to restart must have 
* been made elsewhere, usually by calling via sleep. 
*/ 
swtch () 
{ 
static struct proc *p; 
register i, n; 
register struct proc *rp; 


if(p == NULL) 
p = &proc[0]; 

/* 
* Remember stack of caller 
*/ 

savu(u.u_rsav) ; 

/* 
* Switch to scheduler’s stack 
*/ 

retu(proc[0].p addr) ; 

loop: 

runrun = 0; 

rp = pi 

p = NULL; 

n 1283 
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2200 /*® 

2201 * Search for highest-priority runnable process 
2202 */ 

2203 i = NPROC; 

2204 do { 

2205 rpt+t+; 

2206 if(rp >= &proc[NPROC] ) 

2207 rp = &proc[0]; 

2208 if(rp->p_stat==SRUN && (rp->p_ flag&SLOAD)!=0) { 
2209 if(rp->p pri <n) { 

2210 Pp = rp; 

2211 n = rp->p_ pri; 

2212 } 

2213 

2214 } while(--i); 

2215 /* 

2216 * If no process is runnable, idle. 

2217 */ 

2218 if(p == NULL) { 

2219 Pp = rp; 

2220 idle(); 

2221 goto loop; 

2222 } 

2223 rp = p; 

2224 curpri = n; 

2225 /* Switch to stack of the new process and set up 
2226 * his segmentation registers. 

2227 */ 

2228 retu(rp->p_addr) ; 

2229 sureg(); 

2230 /* 

2231 * If the new process paused because it was 

2232 * swapped out, set the stack level to the last call 
2233 * to savu(u_ssav). This means that the return 

2234 * which is executed immediately after the call to aretu 
2235 * actually returns from the last routine which did 
2236 * the savu. 

2237 * 

2238 * You are not expected to understand this. 

2239 */ 

2240 if(rp->p_flag&SSWAP) { 

2241 rp->p_flag =& ~SSWAP; 

2242 aretu(u.u_ssav) ; 

2243 } 

2244 /* The value returned here has many subtle implications. 
2245 * See the newproc comments. 

2246 */ 

2247 return (1); 

2248 } 

2249 /* ------------------------- */ 
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2250 

2251 /* 

2252 * Change the size of the data+stack regions of the process. 
2253 * If the size is shrinking, it’s easy-- just release the 
2254 * extra core. If it’s growing, and there is core, just 
2255 * allocate it and copy the image, taking care to reset 
2256 * registers to account for the fact that the system’s 
2257 * stack has moved. 

2258 * If there is no core, arrange for the process to be 
2259 * swapped out after adjusting the size requirement-- 
2260 * when it comes in, enough core will be allocated. 
2261 * Because of the ssave and SSWAP flags, control will 
2262 * resume after the swap in swtch, which executes the return 
2263 * from this stack level. 

2264 * 

2265 * After the expansion, the caller will take care of copying 
2266 * the user’s stack towards or away from the data area. 
2267 */ 

2268 expand (newsize) 

2269 { 

2270 int i, n; 

2271 register *p, al, a2; 

2272 

2273 p = u.u_procp; 

2274 n = p->p_size; 

2275 p->p_size = newsize; 

2276 al = p->p_ addr; 

2277 if(n >= newsize) { 

2278 mfree(coremap, n-newsize, al+newsize) ; 

2279 return; 

2280 } 

2281 savu(u.u_rsav) ; 

2282 a2 = malloc(coremap, newsize) ; 

2283 if(a2 == NULL) { 

2284 savu(u.u_ssav) ; 

2285 xswap(p, 1, n); 

2286 p->p_flag =| SSWAP; 

2287 swtch () ; 

2288 /* no return */ 

2289 } 

2290 p->p_addr = a2; 

2291 for(i=0; i<n; i++) 

2292 copyseg(al+i, a2++); 

2293 mfree(coremap, n, al); 

2294 retu(p->p_addr) ; 

2295 sureg(); 

2296 } 

2297 /* ------------------------- */ 

2298 

2299 
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2300 # 2350 return 

2301 /* 2351 putchar (c) ; 

2302 */ 2352 

2303 2353 c = *fmt++; 

2304 #include "../param.h" 2354 if(c == ‘d' || ¢ == /1’ || ¢ == 0’) 
2305 #include "../seg.h" 2355 printn(*adx, c==’0'? 8: 10); 
2306 #include "../buf.h" 2356 if(c == ’s’) { 

2307 #include "../conf.h" 2357 s = *adx; 

2308 2358 while(c = *s++) 

2309 /* 2359 putchar(c) ; 

2310 * Address and structure of the 2360 } 

2311 * KL-11 console device registers. 2361 adx++; 

2312 */ 2362 goto loop; 

2313 struct 2363 } 

2314 { 2364 /* ------------------------- */ 
2315 int rsr; 2365 

2316 int rbr; 2366 /* 

2317 int xSr; 2367 * Print an unsigned integer in base b. 
2318 int xbr; 2368 */ 

2319 }; 2369 printn(n, b) 

2320 /* ------------------------- */ 2370 { 

2321 2374. register a; 

2322 /* 2372 

2323 * In case console is off, 2373 if(a = ldiv(n, b)) 

2324 * panicstr contains argument to last 2374 printn(a, b); 

2325 * call to panic. 2375 putchar(lrem(n, b) + '0’); 

2326 */ 2376 } 

2327 2377 /* ------------------------- */ 
2328 char *panicstr; 2378 

2329 2379 /* 

2330 /* 2380 * Print a character on console. 

2331 * Scaled down version of C library printf. 2381 * Attempts to save and restore device 
2332 * Only %s %1 %d (==%1) %o are recognized. 2382 * status. 

2333 * Used to print diagnostic information 2383 * If the switches are 0, all 

2334 * directly on console tty. 2384 * printing is inhibited. 

2335 * Since it is not interrupt driven, 2385 */ 

2336 * all system activities are pretty much 2386 putchar (c) 

2337. * suspended. 2387 { 

2338 * Printf should not be used for chit-chat. 2388 register rc, s; 

2339 */ 2389 

2340 printf (fmt,x1,x2,x3,x4,x5,x6,x7,x8,x9,xa,xb,xc) 2390 re = 63 

2341 char fmt[]; 2391 if (SW->integ == 0) 

2342 { 2392 return; 

2343 register char *s; 2393 while((KL->xsr&0200) ==0) 

2344 register *adx, c; 2394 } 

2345 2395 if(rce == 0) 

2346 adx = &x1; 2396 return; 

2347 loop: 2397 s = KL->xsr; 

2348 while((c = *fmt++) != ’%') { 2398 KL->xsr = 0; 

2349 if(c == ’\0’) 2399 KL->xbr = rc; 
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2400 if(re == ‘\n’) { 2450 register *rbp; 
2401 putchar(’\r’); 2451 

2402 putchar (0177) ; 2452 rbp: = bp? 

2403 putchar (0177) ; 2453 prdev("err", rbp->b_ dev); 
2404 } 2454 printf ("bn%l er%o %o\n", rbp->b_blkno, o1, 02); 
2405 putchar (0); 2455 } 

2406 KL->xsr = s; 2456 /* ------------------------- */ 
2407 } 2457 

2408 /* ------------------------- */ 2458 

2409 2459 

2410 /* 2460 

2411 * Panic is called on unresolvable 2461 

2412 * fatal errors. 2462 

2413 * It syncs, prints "panic: mesg" and 2463 

2414 * then loops. 2464 

2415 */ 2465 

2416 panic(s) 2466 

2417 char *s; 2467 

2418 { 2468 

2419 panicstr = s; 2469 

2420 update (); 2470 

2421 printf ("panic: %s\n", s); 2471 

2422 for (;; 2472 

2423 idle(); 2473 

2424 } 2474 

2425 /* ------------------------- */ 2475 

2426 2476 

2427 /* 2477 

2428 * prdev prints a warning message of the 2478 

2429 * form "mesg on dev x/y". 2479 

2430 * x and y are the major and minor parts of 2480 

2431 * the device argument. 2481 

2432 */ 2482 

2433 prdev(str, dev) 2483 

2434 { 2484 

2435 2485 

2436 printf("%s on dev %1/%1\n", str, dev.d major, dev.d minor); 2486 

2437 } 2487 

2438 /* ------------------------- */ 2488 

2439 2489 

2440 /* 2490 

2441 * deverr prints a diagnostic from 2491 

2442 * a device driver. 2492 

2443 * It prints the device, block number, 2493 

2444 * and an octal word (usually some error 2494 

2445 * status register) passed as argument. 2495 

2446 */ 2496 

2447 deverror(bp, ol, 02) 2497 

2448 int *bp; 2498 

2449 { 2499 
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2500 # 2550 /* 

2501 /* 2551 * Free the previously allocated space aa 

2502 */ 2552 * of size units into the specified map. 

2503 2553 * Sort aa into map and combine on 

2504 /* 2554 * one or both ends if possible. 

2505 * Structure of the coremap and swapmap 2555 */ 

2506 * arrays. Consists of non-zero count 2556 mfree(mp, size, aa) 

2507 * and base address of that many 2557 struct map *mp; 

2508 * contiguous units. 2558 { 

2509 * (The coremap unit is 64 bytes, 2559 register struct map *bp; 

2510 * the swapmap unit is 512 bytes) 2560 register int t; 

2511 * The addresses are increasing and 2561 register int a; 

2512 * the list is terminated with the 2562 

2513 * first zero count. 2563 a= aa; 

2514 */ 2564 for (bp = mp; bp->m_addr<=a && bp->m_size!=0; bp++); 
2515 struct map 2565 if (bp>mp && (bp-1)->m_addr+(bp-1)->m_size == a) { 
2516 { 2566 (bp-1)->m_size =+ size; 

2517 char *m_ size; 2567 if (a+size == bp->m_addr) { 

2518 char *m_ addr; 2568 (bp-1)->m_size =+ bp->m_size; 
2519 }; 2569 while (bp->m_ size) { 

2520 /* ------------------------- */ 2570 bp++; 

2521 2571 (bp-1)->m_addr = bp->m_addr; 
2522 /* 2572 (bp-1)->m_size = bp->m_size; 
2523 * Allocate size units from the given 2573 } 

2524 * map. Return the base of the allocated 2574 

2525 * space. 2575 } else { 

2526 * Algorithm is first fit. 2576 if (a+size == bp->m_addr && bp->m size) { 
2527 */ 2577 bp->m_addr =- size; 

2528 malloc(mp, size) 2578 bp->m_size =+ size; 

2529 struct map *mp; 2579 } else if (size) do { 

2530 { 2580 t = bp->m_addr; 

2531 register int a; 2581 bp->m_addr = a; 

2532 register struct map *bp; 2582 a= t; 

2533 2583 t = bp->m_size; 

2534 for (bp = mp; bp->m_ size; bp++) { 2584 bp->m_size = size; 

2535 if (bp->m_size >= size) { 2585 bp++; 

2536 a = bp->m_ addr; 2586 } while (size = t); 

2537 bp->m_addr =+ size; 2587 } 

2538 if ((bp->m_size =- size) == 0) 2588 } 

2539 do { 2589 /*----------------------- */ 

2540 bp++; 2590 

2541 (bp-1)->m_addr = bp->m_addr; 2591 

2542 } while((bp-1)->m_size = bp->m_size); 2592 

2543 return (a) ; 2593 

2544 } 2594 

2545 } 2595 

2546 return (0) ; 2596 

2547 } 2597 

2548 /*---------------------- */ 2598 

2549 2599 
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2650 # 

2651 #include "../param.h" 

2652 #include "../systm.h" 

2653 #include "../user.h" 

2654 #include "../proc.h" 

2655 #include "../reg.h" 

2656 #include "../seg.h" 

2657 

2658 #define EBIT 1 /* user error bit in PS: C-bit */ 
2659 #define UMODE 0170000 /* user-mode bits in PS word */ 
2660 #define SETD 0170011 /* SETD instruction */ 

2661 #define sys 0104400 /* sys (trap) instruction */ 
2662 #define USER 020 /* user-mode flag added to dev */ 
2663 

2664 /* 

2665 * structure of the system entry table (sysent.c) 

2666 */ 

2667 struct sysent { 

2668 int count; /* argument count */ 

2669 int (*call) (); /* name of handler */ 

2670 } sysent [64]; 

2671 /* ------------------------- */ 

2672 

2673 /* 

2674 * Offsets of the user’s registers relative to 

2675 * the saved r0. See reg.h 

2676 */ 

2677 char regloc [9] 

2678 { 

2679 RO, R1, R2, R3, R4, R5, R6, R7, RPS 

2680 }; 

2681 /* ------------------------- */ 

2682 

2683 /* 

2684 * Called from 140.s or 145.s when a processor trap occurs. 
2685 * The arguments are the words saved on the system stack 
2686 * by the hardware and software during the trap processing. 
2687 * Their order is dictated by the hardware and the details 
2688 * of C’s calling sequence. They are peculiar in that 

2689 * this call is not ’by value’ and changed user registers 
2690 * get copied back on return. 

2691 * dev is the kind of trap that occurred. 

2692 */ 

2693 trap(dev, sp, rl, nps, r0, pc, ps) 

2694 

2695 register i, a; 

2696 register struct sysent *callp; 

2697 

2698 savfp(); 

2699 if ((ps&UMODE) == UMODE) 
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2700 dev =| USER; 

2701 u.u_arO = &r0; 

2702 switch(dev) { 

2703 

2704 /*® 

2705 * Trap not expected. 

2706 * Usually a kernel mode bus error. 
2707 * The numbers printed are used to 

2708 * find the hardware PS/PC as follows. 
2709 * (all numbers in octal 18 bits) 

2710 * address of saved ps = 

2711 * (ka6*0100) + aps - 0140000; 
2712 * address of saved pc = 

2713 * address of saved ps - 2; 
2714 */ 

2715 default: 

2716 printf("ka6 = %o\n", *ka6); 
2717 printf("aps = %o\n", &ps); 

2718 printf ("trap type %o\n", dev); 
2719 panic("trap") ; 

2720 

2721 case 0+USER: /* bus error */ 

2722 i = SIGBUS; 

2723 break; 

2724 

2725 /* 

2726 * If illegal instructions are not 

2727 * being caught and the offending instruction 
2728 * is a SETD, the trap is ignored. 

2729 * This is because C produces a SETD at 
2730 * the beginning of every program which 
2731 * will trap on CPUs without 11/45 FPU. 
2732 */ 

2733 case 14+USER: /* illegal instruction */ 
2734 if (fuiword(pc-2)==SETD && u.u_signal [SIGINS] ==0) 
2735 goto out; 

2736 i = SIGINS; 

2737 break; 

2738 

2739 case 2+USER: /* bpt or trace */ 

2740 i = SIGTRC; 

2741 break; 

2742 

2743 case 3+USER: /* iot */ 

2744 i = SIGIOT; 

2745 break; 

2746 

2747 case 5+USER: /* emt */ 

2748 i = SIGEMT; 

2749 break; 
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2750 

2751 case 6+USER: /* sys call */ 

2752 u.u_error = 0; 

2753 ps =& ~EBIT; 

2754 callp = &sysent [fuiword (pc-2)&077]; 
2755 if (callp == sysent) { /* indirect */ 
2756 a = fuiword(pc) ; 

2757 pe =+ 2; 

2758 i = fuword (a); 

2759 if ((i & ~077) != SYS) 

2760 i = 077; /* illegal */ 
2761 callp = &sysent [i&077]; 

2762 for(i=0; i<callp->count; i++) 
2763 u.u_arg[i] = fuword(a =+ 2); 
2764 } else { 

2765 for(i=0; i<callp->count; i++) { 
2766 u.u_arg[i] = fuiword(pc) ; 
2767 pe =+ 2; 

2768 } 

2769 } 

2770 u.u_dirp = u.u_arg[0]; 

2771 trapl1(callp->call) ; 

2772 if (u.u_intflg) 

2773 u.u_error = EINTR; 

2774 if(u.u_error < 100) { 

2775 if(u.u_error) { 

2776 ps =| EBIT; 

2777 rO = u.u_error; 

2778 } 

2779 goto out; 

2780 

2781 i = SIGSYS; 

2782 break; 

2783 

2784 /* 

2785 * Since the floating exception is an 

2786 * imprecise trap, a user generated 

2787 * trap may actually come from kernel 

2788 * mode. In this case, a signal is sent 

2789 * to the current process to be picked 

2790 * up later. 

2791 */ 

2792 case 8: /* floating exception */ 

2793 psignal(u.u_procp, SIGFPT) ; 

2794 return; 

2795 

2796 case 8+USER: 

2797 i = SIGFPT; 

2798 break; 

2799 
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2800 /* 2850 /* ------------------------- */ 
2801 * If the user SP is below the stack segment, 2851 

2802 * grow the stack automatically. 2852 /* 

2803 * This relies on the ability of the hardware 2853 * nonexistent system call-- set fatal error code. 
2804 * to restart a half executed instruction. 2854 */ 

2805 * On the 11/40 this is not the case and 2855 nosys() 

2806 * the routine backup/140.s may fail. 2856 

2807 * The classic example is on the instruction 2857 u.u_error = 100; 
2808 * cmp -(sp),- (sp) 2858 } 

2809 */ 2859 /*------------------------- */ 
2810 case 9+USER: /* segmentation exception */ 2860 

2811 a = sp; 2861 /* 

2812 if (backup(u.u_ar0) == 0) 2862 * Ignored system call 
2813 if (grow(a) ) 2863 */ 

2814 goto out; 2864 nullsys() 

2815 i = SIGSEG; 2865 

2816 break; 2866 } 

2817 } 2867 /* ------------------------- */ 
2818 psignal(u.u_procp, i); 2868 

2819 2869 

2820 out: 2870 

2821 if (issig()) 2871 

2822 psig(); 2872 

2823 setpri(u.u_procp) ; 2873 

2824 } 2874 

2825 /* ------------------------- */ 2875 

2826 2876 

2827 /* 2877 

2828 * Call the system-entry routine f (out of the 2878 

2829 * sysent table). This is a subroutine for trap, and 2879 

2830 * not in-line, because if a signal occurs 2880 

2831 * during processing, an (abnormal) return is simulated from 2881 

2832 * the last caller to savu(qsav); if this took place 2882 

2833 * inside of trap, it wouldn’t have a chance to clean up. 2883 

2834 * 2884 

2835 * If this occurs, the return takes place without 2885 

2836 * clearing u_intflg; if it’s still set, trap 2886 

2837 * marks an error which means that a system 2887 

2838 * call (like read on a typewrite) got interrupted 2888 

2839 * by a signal. 2889 

2840 */ 2890 

2841 trapl1(f) 2891 

2842 int (*f) (); 2892 

2843 { 2893 

2844 2894 

2845 u.u_intflg = 1; 2895 

2846 savu(u.u_qsav) ; 2896 

2847 (*£) 0; 2897 

2848 u.u_intflg = 0; 2898 

2849 } 2899 
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2900 # 2950 0, &getswit, /* 38 = switch */ 
2901 /* 2951 0, &nosys, /* 39 = x */ 
2902 */ 2952 0, &nosys, /* 40 = x */ 
2903 2953 0, &dup, /* 41 = dup */ 
2904 /* 2954 0, &pipe, /* 42 = pipe */ 
2905 * This table is the switch used to transfer 2955 1, &times, /* 43 = times */ 
2906 * to the appropriate routine for processing a system call. 2956 4, &profil, /* 44 = prof */ 
2907 * Each row contains the number of arguments expected 2957 0, &nosys, /* 45 = tui */ 
2908 * and a pointer to the routine. 2958 0, &setgid, /* 46 = setgid */ 
2909 */ 2959 0, &getgid, /* 47 = getgid */ 
2910 int sysent [] 2960 2, &ssig, /* 48 = sig */ 
2911 { 2961 0, &nosys, /* 49 =x */ 
2912 0, &nullsys, /* O = indir */ 2962 0, &nosys, /* 50 = x */ 
2913 0, &rexit, /* 1 = exit */ 2963 0, &nosys, /* 51 = x */ 
2914 0, &fork, /* 2 = fork */ 2964 0, &nosys, /* 52 = x */ 
2915 2, &read, /* 3 = read */ 2965 0, &nosys, /* 53 =x */ 
2916 2, &write, /* 4 = write */ 2966 0, &nosys, /* 54 = x */ 
2917 2, &oOpen, /* 5 = open */ 2967 0, &nosys, /* 55 = x */ 
2918 0, &close, /* 6 = close */ 2968 0, &nosys, /* 56 = x */ 
2919 0, &wait, /* 7 = wait */ 2969 0, &nosys, /* 57 = x */ 
2920 2, &creat, /* 8 = creat */ 2970 0, &nosys, /* 58 = x */ 
2921 2, &link, /* 9 = link */ 2971 0, &nosys, /* 59 = x */ 
2922 1, &unlink, /* 10 = ulink */ 2972 0, &nosys, /* 60 = x */ 
2923 2, &exec, /* 11 = exec */ 2973 0, &nosys, /* 61 = x */ 
2924 1, &chdir, /* 12 = chdir */ 2974 0, &nosys, /* 62 = x */ 
2925 0, &gtime, /* 13 = time */ 2975 0, &nosys, /* 63 = x */ 
2926 3, &mknod, /* 14 = mknod */ 2976 }; 

2927 2, &chmod, /* 15 = chmod */ 2977 /* ------------------------- */ 

2928 2, &chown, /* 16 = chown */ 2978 

2929 1, &sbreak, /* 17 = break */ 2979 

2930 2, &stat, /* 18 = stat */ 2980 

2931 2, &seek, /* 19 = seek */ 2981 

2932 0, &getpid, /* 20 = getpid */ 2982 

2933 3, &smount, /* 21 = mount */ 2983 

2934 1, &sumount, /* 22 = unmount */ 2984 

2935 0, &setuid, /* 23 = setuid */ 2985 

2936 0, &getuid, /* 24 = getuid */ 2986 

2937 0, &stime, /* 25 = stime */ 2987 

2938 3, &ptrace, /* 26 = ptrace */ 2988 

2939 0, &nosys, /* 27 = x */ 2989 

2940 1, &fstat, /* 28 = fstat */ 2990 

2941 0, &nosys, /* 29 = x */ 2991 

2942 1, &nullsys, /* inoperative /* 30 = smdate */ 2992 

2943 1, &stty, /* 31 = stty */ 2993 

2944 1, &gtty, /* 32 = gtty */ 2994 

2945 0, &nosys, /* 33 = x */ 2995 

2946 0, &nice, /* 34 = nice */ 2996 

2947 0, &sslep, /* 35 = sleep */ 2997 

2948 0, &sync, /* 36 = sync */ 2998 

2949 1, &kill, /* 37 = kill */ 2999 
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3000 # 

3001 #include "../param.h" 

3002 #include "../systm.h" 

3003 #include "../user.h" 

3004 #include "../proc.h" 

3005 #include "../buf.h" 

3006 #include "../reg.h" 

3007 #include "../inode.h" 

3008 

3009 /* 

3010 * exec system call. 

3011 * Because of the fact that an I/O buffer is used 

3012 * to store the caller’s arguments during exec, 

3013 * and more buffers are needed to read in the text file, 
3014 * deadly embraces waiting for free buffers are possible. 
3015 * Therefore the number of processes simultaneously 


3016 * running in exec has to be limited to NEXEC. 


3017 */ 

3018 #define EXPRI -1 

3019 

3020 exec () 

3021 { 

3022 int ap, na, nc, *bp; 

3023 int ts, ds, sep; 

3024 register c, *ip; 

3025 register char *cp; 

3026 extern uchar; 

3027 

3028 /*® 

3029 * pick up file names 
3030 * and check various modes 
3031 * for execute permission 
3032 */ 

3033 

3034 ip = namei(&uchar, 0); 
3035 if(ip == NULL) 

3036 return; 

3037 while(execnt >= NEXEC) 
3038 sleep (&execnt, EXPRI) ; 
3039 execnt++; 

3040 bp = getblk (NODEV) ; 

3041 if(access(ip, IEXEC) || (ip->i_mode&IFMT) !=0) 
3042 goto bad; 

3043 

3044 /*® 

3045 * pack up arguments into 
3046 * allocated disk buffer 
3047 */ 

3048 

3049 cp = bp->b_ addr; 
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3050 na = 0; 
3051 ne = 0; 
3052 while(ap = fuword(u.u_arg[1])) { 


3053 nat++; 

3054 if(ap == -1) 

3055 goto bad; 

3056 u.u_arg[1] =+ 2; 

3057 for(;;) { 

3058 c = fubyte(ap++); 
3059 if(c == -1) 

3060 goto bad; 
3061 *cpt++ = c; 

3062 ne++; 

3063 if(nc > 510) { 
3064 u.u_error = E2BIG; 
3065 goto bad; 
3066 

3067 if(c == 0) 

3068 break; 
3069 } 

3070 

3071 if((nc&1) != 0) { 

3072 *cp++ = 0; 

3073 nc++; 

3074 } 

3075 

3076 /* read in first 8 bytes 

3077 * of file for segment 

3078 * sizes: 

3079 * w0O = 407/410/411 (410 -> RO text) (411 -> sep ID) 
3080 * wl = text size 

3081 * w2 = data size 

3082 * w3 = bss size 

3083 */ 

3084 

3085 u.u_base = &u.u_arg[0]; 

3086 u.u_count = 8; 

3087 u.u_offset[1] = 0; 

3088 u.u_offset[0] = 0; 

3089 u.u_segflg = 1; 

3090 readi (ip); 

3091 u.u_segflg = 0; 

3092 if (u.u_error) 

3093 goto bad; 

3094 sep = 0; 

3095 if(u.u_arg[0] == 0407) { 

3096 u.u_arg[2] =+ u.u_arg[1]; 
3097 u.u_arg[1] = 0; 

3098 } else 

3099 if(u.u_arg[0] == 0411) 
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3100 sep++; else 3150 u.u_ssize = SSIZE; 

3101 if(u.u_arg[0] != 0410) { 3151 u.u_sep = sep; 

3102 u.u_error = ENOEXEC; 3152 estabur(u.u_tsize, u.u_dsize, u.u_ssize, u.u_sep); 
3103 goto bad; 3153 cp = bp->b_ addr; 

3104 } 3154 ap = -nc - na*2 - 4; 

3105 if(u.u_arg[1] !=0&&(ip->i_flag&ITEXT) ==0&&ip->i_count!=1){ 3155 u.u_ar0[R6] = ap; 

3106 u.u_error = ETXTBSY; 3156 suword(ap, na); 

3107 goto bad; 3157 c = -nc; 

3108 } 3158 while(na--) { 

3109 3159 suword(ap=+2, c); 

3110 /* 3160 do 

3111 * find text and data sizes 3161 subyte(c++, *cp); 

3112 * try them out for possible 3162 while (*cp++) ; 

3113 * exceed of max sizes 3163 

3114 */ 3164 suword(ap+2, -1); 

3115 3165 

3116 ts = ((u.u_arg[1]+63)>>6) & 01777; 3166 /* 

3117 ds = ((u.u_arg[2]+u.u_arg[3]+63)>>6) & 0177; 3167 * set SUID/SGID protections, if no tracing 
3118 if(estabur(ts, ds, SSIZE, sep) ) 3168 */ 

3119 goto bad; 3169 

3120 3170 if ((u.u_procp->p flag&STRC)==0) { 

3121 /* 3171 if (ip->i_mode&ISUID) 

3122 * allocate and clear core 3172 if(u.u_uid != 0) { 

3123 * at this point, committed 3173 u.u_uid = ip->i_uid; 
3124 * to the new image 3174 u.u_procp->p uid = ip->i_uid; 
3125 */ 3175 

3126 3176 if (ip->i_mode&ISGID) 

3127 u.u_prof[3] = 0; 3177 u.u_gid = ip->i_gid; 

3128 xfree(); 3178 } 

3129 expand (USIZE) ; 3179 

3130 xalloc (ip); 3180 /* clear sigs, regs, and return */ 

3131 c = USIZE+ds+SSIZE; 3181 

3132 expand (c) ; 3182 e-s ip: 

3133 while(--c >= USIZE) 3183 for(ip = &u.u_signal[0]; ip < &u.u_signal[NSIG]; ip++) 
3134 clearseg(u.u_procp->p_addr+c) ; 3184 if((*ip & 1) == 0) 

3135 3185 *ip = 0; 

3136 /* read in data segment */ 3186 for(cp = &regloc[0]; cp < &regloc[6];) 

3137 3187 u.u_ar0O[*cp++] = 0; 

3138 estabur(0, ds, 0, 0); 3188 u.u_ar0O[R7] = 0; 

3139 u.u_base = 0; 3189 for(ip = &u.u_fsav[0]; ip < &u.u_fsav[25];) 
3140 u.u_offset[1] = 020+u.u_arg[1]; 3190 *ip++ = 0; 

3141 u.u_count = u.u_arg[2]; 3191 ip = c; 

3142 readi (ip) ; 3192 

3143 3193 bad: 

3144 /* 3194 iput (ip); 

3145 * initialize stack segment 3195 brelse (bp) ; 

3146 */ 3196 if(execnt >= NEXEC) 

3147 3197 wakeup (&execnt) ; 

3148 u.u_tsize = ts; 3198 execnt--; 

3149 u.u_dsize = ds; 3199 } 

Reproduced under license from the Western Electric Company, NY Reproduced under license from the Western Electric Company, NY 
Copyright, J. Lions, 1976 Copyright, J. Lions, 1976 


Sheet 31 Sheet 31 


Sep 


3200 
3201 
3202 
3203 
3204 
3205 
3206 
3207 
3208 
3209 
3210 
3211 
3212 
3213 
3214 
3215 
3216 
3217 
3218 
3219 
3220 
3221 
3222 
3223 
3224 
3225 
3226 
3227 
3228 
3229 
3230 
3231 
3232 
3233 
3234 
3235 
3236 
3237 
3238 
3239 
3240 
3241 
3242 
3243 
3244 
3245 
3246 
3247 
3248 
3249 


1 09:28 1988 unix/sysl.c Page 5 


[® wn nee ne nnn nn eee */ 


/* exit system call: 

* pass back caller’s r0 
*/. 

rexit () 


{ 


u.u_arg[0] = 
exit(); 


u.u_ar0O[RO] << 8; 


[*® ---- een nnn nnn eee */ 


/* Release resources. 

* Save u. area for parent to look at. 
* Enter zombie state. 

* Wake up parent and init processes, 
* and dispose of children. 


*/ 
exit () 
{ . . 
register int *q, a; 
register struct proc *p; 
u.u_procp->p flag =& ~STRC; 
for(q = &u.u_signal[0]; q < &u.u_signal[NSIG] ;) 
*qt+ = 1; 
for(q = &u.u_ofile[0]; q < &u.u_ofile[NOFILE]; q++) 
if(a = *q) { 
*q = NULL; 
closef (a); 
} 
iput(u.u_cdir) ; 
xfree(); 
a = malloc(swapmap, 1); 
if(a == NULL) 
panic("out of swap"); 
p = getblk(swapdev, a); 
beopy(&u, p->b_ addr, 256); 
bwrite(p) ; 
q = u.u_procp; 
mfree(coremap, q->p_ size, q->p_addr); 
q->p_addr = a; 
q->p_stat = SZOMB; 
loop: 
for(p = &proc[0]; p < &proc[NPROC]; p++) 


if(q->p_ppid == p->p pid) { 
wakeup (&proc [1] ) ; 
wakeup (p) ; 
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3250 for(p = &proc[0]; p < &proc[NPROC]; p++) 
3251 if(q->p_pid == p->p_ppid) 

3252 p->p_ ppid = 1; 

3253 if (p->p_stat == SSTOP) 

3254 setrun (p) ; 

3255 

3256 swtch () ; 

3257 /* no return */ 

3258 } 

3259 q->p_ppid = 1; 

3260 goto loop; 

3261 } 

3262 /* ------------------------- */ 

3263 

3264 /* Wait system call. 

3265 * Search for a terminated (zombie) child, 

3266 * finally lay it to rest, and collect its status. 
3267 * Look also for stopped (traced) children, 

3268 * and pass back status from them. 

3269 */ 

3270 wait () 

3271 

3272 register f£, *bp; 

3273 register struct proc *p; 

3274 

3275 £ = 0; 

3276 loop: 

3277 for(p = &proc[0]; p < &proc[NPROC]; p++) 

3278 if(p->p_ppid == u.u_procp->p pid) { 

3279 f++; 

3280 if(p->p_stat == SZOMB) { 

3281 u.u_ar0[RO] = p->p_pid; 

3282 bp = bread(swapdev, f=p->p_addr) ; 
3283 mfree(swapmap, 1, £); 

3284 p->p_stat = NULL; 

3285 p->p_pid = 0; 

3286 p->p_ppid = 0; 

3287 p->p_sig = 0; 

3288 p->p_ttyp = 0; 

3289 p->p_flag = 0; 

3290 p = bp->b_ addr; 

3291 u.u_cstime[0] =+ p->u_cstime[0]; 
3292 dpadd(u.u_cstime, p->u_cstime[1]); 
3293 dpadd(u.u_cstime, p->u_stime) ; 
3294 u.u_cstime[0] =+ p->u_cutime[0]; 
3295 dpadd(u.u_cutime, p->u_cutime[1]); 
3296 dpadd(u.u_cutime, p->u_utime) ; 
3297 u.u_ar0[R1] = p->u_arg[0]; 

3298 brelse (bp) ; 

3299 return; 
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3300 } 

3301 if(p->p_stat == SSTOP) { 

3302 if((p->p_flag&SWTED) == 0) { 
3303 p->p_flag =| SWTED; 
3304 u.u_ar0[RO] = p->p_pid; 
3305 u.u_ar0[R1] = (p->p_sig<<8) | 
3306 0177; 
3307 return; 

3308 } 

3309 p->p_flag =& ~(STRC|SWTED) ; 
3310 setrun (p) ; 

3311 } 

3312 

3313 if(f) { 

3314 sleep(u.u_procp, PWAIT) ; 

3315 goto loop; 

3316 } 

3317 u.u_error = ECHILD; 

3318 } 

3319 /* ------------------------- */ 

3320 

3321 /* fork system call. */ 

3322 fork() 


3323 { 

3324 register struct proc *pl, *p2; 
3325 

3326 pl = u.u_procp; 

3327 for(p2 = &proc[0]; p2 < &proc[NPROC]; p2++) 
3328 if(p2->p_stat == NULL) 
3329 goto found; 

3330 u.u_error = EAGAIN; 

3331 goto out; 

3332 

3333 found: 

3334 if(newproc()) { 

3335 u.u_ar0O[RO] = pl->p_pid; 
3336 u.u_cstime[0] = 0; 

3337 u.u_cstime[1] = 0; 

3338 u.u_stime = 0; 

3339 u.u_cutime[0] = 0; 

3340 u.u_cutime[1] = 0; 

3341 u.u_utime = 0; 

3342 return; 

3343 

3344 u.u_ar0[RO] = p2->p_pid; 

3345 

3346 out: 

3347 u.u_ar0O[R7] =+ 2; 

3348 } 

3349 /* ------------------------- */ 
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3350 

3351 /* break system call. 

3352 * -- bad planning: "break" is a dirty word in C. 
3353 */ 

3354 sbreak() 

3355 { 

3356 register a, n, d; 

3357 int i; 

3358 

3359 /* set n to new data size 

3360 * set d to new-old 

3361 * set n to new total size 

3362 */ 

3363 

3364 n= (((u.u_arg[0]+63)>>6) & 01777); 
3365 if (!u.u_sep) 

3366 n =- nseg(u.u_tsize) * 128; 
3367 if(n < 0) 

3368 n= 0; 

3369 d=n - u.u_dsize; 

3370 n =+ USIZE+u.u_ssize; 

3371 if(estabur(u.u_tsize, u.u_dsize+d, u.u_ssize, u.u_sep) ) 
3372 return; 

3373 u.u_dsize =+ d; 

3374 if(d > 0) 

3375 goto bigger; 

3376 a = u.u_procp->p addr +n - u.u_ssize; 
3377 i =n; 

3378 n = u.u_ssize; 

3379 while(n--) { 

3380 copyseg(a-d, a); 

3381 att; 

3382 

3383 expand (i) ; 

3384 return; 

3385 

3386 bigger: 

3387 expand (n) ; 

3388 a = u.u_procp->p addr + n; 

3389 n = u.u_ssize; 

3390 while(n--) { 

3391 a--; 

3392 copyseg(a-d, a); 

3393 

3394 while (d--) 

3395 clearseg(--a); 

3396 } 

3397 /* ------------------------- */ 
3398 

3399 
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# 
/* 
* Everything in this file is 
* a routine implementing a system call. 


*/ 


#include ". 
#include ". 
#include ". 
#include ". 
#include ". 
#include ". 


./param.h" 
.-/user.h" 
./reg.h" 
./inode.h" 
./systm.h" 
./proc.h" 


getswit () 


{ 
u.u_ar0O[RO] = SW->integ; 


[*® ------- en nnn eee */ 


3421 { 


3422 
3423 
3424 
3425 
3426 
3427 
3428 
3429 
3430 
3431 
3432 
3433 
3434 
3435 
3436 
3437 
3438 
3439 
3440 
3441 
3442 
3443 
3444 
3445 
3446 
3447 
3448 
3449 


u.u_ar0[RO] = 
u.u_ar0O[R1] = 


time [0]; 
time [1]; 


[*® --- 2 nn nnn nee */ 


if(suser()) { 
time[0] = u.u_ar0[RO]; 
time[1] = u.u_ar0[R1]; 
wakeup (tout) ; 


[*® wn - eee nn nnn nee eee */ 


setuid () 


{ 


register uid; 


uid = u.u_ar0[R0] .lobyte; 

if(u.u_ruid == uid.lobyte || suser()) { 
u.u_uid = uid; 
u.u_procp->p_uid = 
u.u_ruid = uid; 


uid; 
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[* ---- 2-H - nee --eee */ 
getuid() 
{ 
u.u_ar0[RO].lobyte = u.u_ruid; 
u.u_ar0[RO] -hibyte = u.u_uid; 
} 
[*R --- 2-H */ 
setgid() 
{ 
register gid; 
gid = u.u_ar0[R0] .lobyte; 
if(u.u_rgid == gid.lobyte || suser()) { 
u.u_gid = gid; 
u.u_rgid = gid; 
} 
} 
[* ------- enn ------eee */ 
getgid() 
u.u_ar0[RO] .lobyte = u.u_rgid; 
u.u_ar0[RO] .-hibyte = u.u_gid; 
} 
[* ---- 2-2 eee - eee --eeee */ 
getpid() 
{ 
u.u_ar0[RO] = u.u_procp->p_pid; 
} 
[* ----- 2-H ne --e-eee */ 
sync () 
update (); 
} 
[* ---- 2-H */ 
nice () 


register n; 


n = u.u_ar0[R0]; 
if(n > 20) 


n = 20; 
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3500 if(n < 0 && !suser()) 

3501 n= 0; 

3502 u.u_procp->p nice = n; 

3503 } 

3504 /* ------------------------- */ 
3505 

3506 /* 

3507 * Unlink system call. 

3508 * panic: unlink -- "cannot happen" 
3509 */ 

3510 unlink () 

3511 { 

3512 register *ip, *pp; 

3513 extern uchar; 

3514 

3515 pp = namei(&uchar, 2); 

3516 if(pp == NULL) 

3517 return; 

3518 prele(pp) ; 

3519 ip = iget(pp->i_dev, u.u_dent.u_ino); 
3520 if(ip == NULL) 

3521 panic("unlink -- iget"); 
3522 if ((ip->i_mode&IFMT)==IFDIR && !suser()) 
3523 goto out; 

3524 u.u_offset[1] =- DIRSIZ+2; 

3525 u.u_base = &u.u_dent; 

3526 u.u_count = DIRSIZ+2; 

3527 u.u_dent.u_ino = 0; 

3528 writei (pp) ; 

3529 ip->i_nlink--; 

3530 ip->i_flag =| IUPD; 

3531 

3532 out: 

3533 iput (pp) ; 

3534 iput (ip); 

3535 

3536 /* ------------------------- */ 
3537 

3538 chdir() 

3539 { 

3540 register *ip; 

3541 extern uchar; 

3542 

3543 ip = namei(&uchar, 0); 

3544 if(ip == NULL) 

3545 return; 

3546 if ((ip->i_mode&IFMT) != IFDIR) { 
3547 u.u_error = ENOTDIR; 
3548 bad: 

3549 iput (ip); 
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3550 return; 

3551 } 

3552 if(access(ip, IEXEC) ) 

3553 goto bad; 

3554 iput(u.u_cdir) ; 

3555 u.u_cdir = ip; 

3556 prele(ip); 

3557 } 

3558 /* ------------------------- */ 
3559 

3560 chmod () 

3561 { 

3562 register *ip; 

3563 

3564 if ((ip = owner()) == NULL) 

3565 return; 

3566 ip->i_mode =& ~07777; 

3567 if (u.u_uid) 

3568 u.u_arg[1] =& ~ISVTX; 

3569 ip->i_mode =| u.u_arg[1]&07777; 
3570 ip->i_flag =| IUPD; 

3571 iput (ip); 

3572 } 

3573 /* ------------------------- */ 
3574 

3575 chown () 

3576 { 

3577 register *ip; 

3578 

3579 if (!suser() || (ip = owner()) == NULL) 
3580 return; 

3581 ip->i_uid = u.u_arg[1] .lobyte; 
3582 ip->i_gid = u.u_arg[1] .hibyte; 
3583 ip->i_flag =| IUPD; 

3584 iput (ip); 

3585 } 

3586 /* ------------------------- */ 
3587 

3588 /* 


3589 * Change modified date of file: 


3590 * time to r0-rl; sys smdate; file 

3591 * This call has been withdrawn because it messes up 
3592 * incremental dumps (pseudo-old files aren’t dumped). 
3593 * It works though and you can uncomment it if you like. 
3594 

3595 smdate() 

3596 { 

3597 register struct inode *ip; 

3598 register int *tp; 

3599 int tbuf[2]; 
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3600 

3601 if ((ip = owner()) == NULL) 

3602 return; 

3603 ip->i_flag =| IUPD; 

3604 tp = &tbuf [2]; 

3605 *--tp = u.u_ar0[R1]; 

3606 *--tp = u.u_ar0[R0]; 

3607 iupdat(ip, tp); 

3608 ip->i_flag =& ~IUPD; 

3609 iput (ip); 

3610 

3611 */ 

3612 /* ------------------------- */ 
3613 

3614 ssig() 

3615 

3616 register a; 

3617 

3618 a = u.u_arg[0]; 

3619 if(a<=0 || a>=NSIG || a ==SIGKIL) { 
3620 u.u_error = EINVAL; 

3621 return; 

3622 

3623 u.u_ar0[RO] = u.u_signal [a]; 

3624 u.u_signal[a] = u.u_arg[1]; 

3625 if(u.u_procp->p_sig == a) 

3626 u.u_procp->p_ sig = 0; 

3627 } 

3628 /* ------------------------- */ 
3629 

3630 kill() 

3631 { 

3632 register struct proc *p, *q; 

3633 register a; 

3634 int f; 

3635 

3636 £ = 0; 

3637 a = u.u_ar0[RO]; 

3638 q = u.u_procp; 

3639 for(p = &proc[0]; p < &proc[NPROC]; p++) { 
3640 if(p == q) 

3641 continue; 

3642 if(a != 0 && p->p pid != a) 
3643 continue; 

3644 if (a==0&&(p->p_ttyp!=q->p_ttyp||p<=&proc[1])) 
3645 continue; 

3646 if(u.u_uid != 0 && u.u_uid != p->p_uid) 
3647 continue; 

3648 f++; 

3649 psignal(p, u.u_arg[0]); 
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if(f == 0) 


u.u_error = ESRCH; 


times () 


register *p; 
for(p = 


suword(u.u_arg[0], 
u.u_arg[0] =+ 2; 


profil () 


-u_prof [0] 
-u_prof [1] 
-u_prof [2] 
-u_prof [3] 


u.u_arg[0] & ~1; 
u.u_arg[1]; 
u.u_arg[2]; 
(u.u_arg[3]>>1) & 


eh 


&u.u_utime; p < &u.u_utime+6;) { 
*pt+); 


*/ 


/* base of sample buf */ 
/* size of same */ 

/* pe offset */ 

077777; /* pe scale */ 


*/ 
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3700 # 3750 p2 = &callout[0]; 

3701 #include "../param.h" 3751 while (p2->c_time<=0 && p2->c_func!=0) 
3702 #include "../systm.h" 3752 p2t++; 

3703 #include "../user.h" 3753 p2->c_time--; 

3704 #include "../proc.h" 3754 

3705 3755 /* 

3706 #define UMODE 0170000 3756 * if ps is high, just return 

3707 #define SCHMAG 10 3757 */ 

3708 3758 

3709 /* 3759 if ((ps&0340) != 0) 

3710 * clock is called straight from 3760 goto out; 

3711 * the real time clock interrupt. 3761 

3712 * 3762 /* 

3713 * Functions: 3763 * callout 

3714 * reprime clock 3764 */ 

3715 * copy *switches to display 3765 

3716 * implement callouts 3766 sp15(); 

3717 * maintain user/system times 3767 if(callout[0].c_ time <= 0) { 

3718 * maintain date 3768 pl = &callout[0]; 

3719 * profile 3769 while(pl->c_ func != 0 && pl->c_time <= 0) { 
3720 * tout wakeup (sys sleep) 3770 (*p1->c_func) (p1->c_arg) ; 
3721 * lightning bolt wakeup (every 4 sec) a7I1 pl+t+; 

3722 * alarm clock signals 3772 } 

3723 * jab the scheduler 3773 p2 = &callout [0]; 

3724 */ 3774 while(p2->c_ func = pl->c func) { 
3725 clock(dev, sp, rl, nps, r0, pc, ps) 3775 p2->c_time = pl->c_time; 
3726 { 3776 p2->c_ arg = pl->c arg; 
3727 register struct callo *pl, *p2; 3777 pl++; 

3728 register struct proc *pp; 3778 p2t+t+; 

3729 3779 } 

3730 /* 3780 } 

3731 * restart clock 3781 

3732 */ 3782 /* 

3733 3783 * lightning bolt time-out 

3734 *lks = 0115; 3784 * and time of day 

3735 3785 */ 

3736 /* 3786 

3737 * display register 3787 out: 

3738 */ 3788 if((ps&UMODE) == UMODE) { 

3739 3789 u.u_utime++; 

3740 display (); 3790 if(u.u_prof [3]) 

3741 3791 incupe (ps, u.u_prof); 
3742 /® 3792 } else 

3743 * callouts 3793 u.u_stime++; 

3744 * if done, just return 3794 pp = u.u_procp; 

3745 * else update first non-zero time 3795 if (++pp->p_cpu == 0) 

3746 */ 3796 Pp->p_cpu--; 

3747 3797 if(++lbolt >= Hz) { 

3748 if (callout[0].c_ func == 0) 3798 if ((ps&0340) != 0) 

3749 goto out; 3799 return; 
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3800 lbolt =- HZ; 3850 

3801 if (++time[1] == 0) 3851 t = tim; 

3802 ++time[0]; 3852 s = P§->integ; 

3803 spll1(); 3853 pl = &callout[0]; 

3804 if (time[1]==tout[1] && time[0]==tout [0] ) 3854 sp17(); 

3805 wakeup (tout) ; 3855 while(pl->c_ func != 0 && pl->c_time <= t) { 
3806 if((time[1]&03) == 0) { 3856 t =- pl->c_time; 

3807 runrun++; 3857 plt++; 

3808 wakeup (&1lbolt) ; 3858 } 

3809 } 3859 pl->c_ time =- t; 

3810 for(pp = &proc[0]; pp < &proc[NPROC]; pp++) 3860 p2 = pl; 

3811 if (pp->p_stat) { 3861 while(p2->c_ func != 0) 

3812 if(pp->p_time != 127) 3862 p2+t+; 

3813 pp->p_time++; 3863 while(p2 >= pl) { 

3814 if((pp->p_cpu & 0377) > SCHMAG) 3864 (p2+1)->c_time = p2->c_time; 
3815 Ppp->p_cpu =- SCHMAG; else 3865 (p2+1)->c_func = p2->c_func; 
3816 pp->p_cpu = 0; 3866 (p2+1)->c_arg = p2->c_arg; 
3817 if(pp->p_pri > PUSER) 3867 p2--; 

3818 setpri (pp) ; 3868 

3819 } 3869 pl->c_ time = t; 

3820 if(runin!=0) { 3870 pl->c_ func = fun; 

3821 runin = 0; 3871 pl->c_arg = arg; 

3822 wakeup (&runin) ; 3872 PS->integ = s; 

3823 } 3873 } 

3824 if ((ps&UMODE) == UMODE) { 3874 /* ------------------------- */ 
3825 u.u_arO = &r0; 3875 

3826 if (issig()) 3876 

3827 psig(); 3877 

3828 setpri(u.u_procp) ; 3878 

3829 } 3879 

3830 } 3880 

3831 } 3881 

3832 /* ------------------------- */ 3882 

3833 3883 

3834 /* 3884 

3835 * timeout is called to arrange that 3885 

3836 * fun(arg) is called in tim/HZ seconds. 3886 

3837 * An entry is sorted into the callout 3887 

3838 * structure. The time in each structure 3888 

3839 * entry is the number of HZ’s more 3889 

3840 * than the previous entry. 3890 

3841 * In this way, decrementing the 3891 

3842 * first entry has the effect of 3892 

3843 * updating all entries. 3893 

3844 */ 3894 

3845 timeout(fun, arg, tim) 3895 

3846 { 3896 

3847 register struct callo *pl, *p2; 3897 

3848 register t; 3898 

3849 int s; 3899 
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# 
/* 
*/ 
#include "../param.h" 
#include "../systm.h" 
#include "../user.h" 
#include "../proc.h" 
#include "../inode.h" 
#include "../reg.h" 
/* 
* Priority for tracing 
*/ 
#define IPCPRI (-1) 
/* 
* Structure to access an array of integers. 
yf 
struct 
{ 
int intal[]; 
}; 
[*® ---- een */ 
/* 
* Tracing variables. 
* Used to pass trace command from 
* parent to child being traced. 
* This data base cannot be 
* shared and is locked 


* per user. 


+f 
struct 
{ 
int ip_lock; 
int ip_req; 
int ip_addr; 
int ip data; 
} ipe; 
[*® --- 22 --nnnnnneeeeee */ 
/* 
* Send the specified signal to 
* all processes with ‘tp’ as its 
* controlling teletype. 
* 


Called by tty.c for quits and 
* interrupts. 


signal(tp, sig) 
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{ 

register struct proc *p; 

for(p = &proc[0]; p < &proc[NPROC]; p++) 

if(p->p_ttyp == tp) 
psignal(p, sig); 

} 
[* -------- enn -----eee */ 
/* 


* Send the specified signal to 
* the specified process. 
*/ 

psignal(p, sig) 

int *p; 


register *rp; 


if(sig >= NSIG) 
return; 

rp = Pi 

if(rp->p_sig != SIGKIL) 
rp->p_sig = sig; 

if(rp->p_stat > PUSER) 
rp->p_ stat = PUSER; 

if(rp->p_stat == SWAIT) 
setrun (rp) ; 


Nw 
* 


eye nayaiei ete Syere ore veveve a die aerate */ 


~ 
* 


Returns true if the current 
process has a signal to process. 
This is asked at least once 
each time a process enters the 
system. 

A signal does not do anything 
directly to a process; it sets 
a flag that asks the process to 
do something to itself. 


+e ee FF HF 


* 


*/ 


issig() 


register n; 
register struct proc *p; 


Pp = u.u_procp; 
if(n = p->p_sig) { 
if (p->p_flagssTRc) { 
stop(); 
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4000 if ((n = p->p_sig) == 0) 
4001 return (0) ; 
4002 

4003 if((u.u_signal[n]&1) == 0) 
4004 return (n) ; 

4005 

4006 return (0) ; 

4007 } 

4008 /* ------------------------- */ 
4009 

4010 /* 

4011 * Enter the tracing STOP state. 

4012 * In this state, the parent is 

4013 * informed and the process is able to 
4014 * receive commands from the parent. 
4015 */ 

4016 stop() 


4017 

4018 register struct proc *pp, *cp; 

4019 

4020 loop: 

4021 cp = u.u_procp; 

4022 if(cp->p_pid != 1) 

4023 for (pp = &proc[0]; pp < &proc[NPROC]; pp++) 
4024 if (pp->p_pid == cp->p_ppid) 
4025 wakeup (pp) ; 

4026 cp->p_ stat = SSTOP; 
4027 swtch() ; 

4028 if ((cp->p_flag&STRC)==0 || procxmt ()) 
4029 return; 
4030 goto loop; 

4031 } 

4032 exit (); 

4033 } 

4034 /* ------------------------- */ 
4035 

4036 /* 

4037 * Perform the action specified by 
4038 * the current signal. 

4039 * The usual sequence is: 

4040 * if(issig()) 

4041 * psig(); 

4042 */ 

4043 psig() 

4044 

4045 register n, p; 

4046 register *rp; 

4047 

4048 rp = u.u_procp; 

4049 n = rp->p_sig; 
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4050 rp->p_sig = 0; 

4051 if((psu.u_signal[n]) != 0) { 

4052 u.u_error = 0; 

4053 if(n != SIGINS && n != SIGTRC) 
4054 u.u_signal[n] = 0; 
4055 n= u.u_ar0O[R6] - 4; 

4056 grow (n) ; 

4057 suword(n+2, u.u_arO[RPS]); 
4058 suword(n, u.u_ar0[R7]); 
4059 u.u_ar0O[R6] = n; 

4060 u.u_arO[RPS] =& ~TBIT; 

4061 u.u_ar0O[R7] = p; 

4062 return; 

4063 

4064 switch(n) { 

4065 

4066 case SIGQIT: 

4067 case SIGINS: 

4068 case SIGTRC: 

4069 case SIGIOT: 

4070 case SIGEMT: 

4071 case SIGFPT: 

4072 case SIGBUS: 

4073 case SIGSEG: 

4074 case SIGSYS: 

4075 u.u_arg[0] = n; 

4076 if (core() ) 

4077 n =+ 0200; 

4078 

4079 u.u_arg[0] = (u.u_ar0[R0]<<8) | n; 
4080 exit(); 

4081 } 

4082 /* ------------------------- */ 
4083 

4084 /* 

4085 * Create a core image on the file "core" 
4086 * If you are looking for protection glitches, 
4087 * there are probably a wealth of them here 
4088 * when this occurs to a suid command. 
4089 * 

4090 * It writes USIZE block of the 

4091 * user.h area followed by the entire 
4092 * data+stack segments. 

4093 */ 

4094 core() 

4095 { 

4096 register s, *ip; 

4097 extern schar; 

4098 

4099 u.u_error = 0; 
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4100 u.u_dirp = "core"; 4150 for(isu.u_ssize; i; i--) { 

4101 ip = namei(&schar, 1); 4151 a--; 

4102 if(ip == NULL) { 4152 copyseg(a-si, a); 

4103 if (u.u_error) 4153 } 

4104 return (0); 4154 for(i=si; i; i--) 

4105 ip = maknode (0666); 4155 clearseg(--a); 

4106 if(ip == NULL) 4156 u.u_ssize =+ si; 

4107 return (0); 4157 return (1); 

4108 } 4158 } 

4109 if(!access(ip, IWRITE) && 4159 /* ------------------------- */ 
4110 (ip->i_mode&IFMT) == 0 && 4160 

4111 u.u_uid == u.u_ruid) { 4161 /* 

4112 itrunc (ip) ; 4162 * sys-trace system call. 

4113 u.u_offset[0] = 0; 4163 */ 

4114 u.u_offset[1] = 0; 4164 ptrace() 

4115 u.u_base = &u; 4165 

4116 u.u_count = USIZE*64; 4166 register struct proc *p; 

4117 u.u_segflg = 1; 4167 

4118 writei (ip); 4168 if (u.u_arg[2] <= 0) { 

4119 Ss = u.u_procp->p size - USIZE; 4169 u.u_procp->p_ flag =| STRC; 
4120 estabur(0, s, 0, 0); 4170 return; 

4121 u.u_base = 0; 4171 } 

4122 u.u_count = s*64; 4172 for (p=proc; p < &proc[NPROC]; p++) 
4123 u.u_segflg = 0; 4173 if (p->p_stat==SSTOP 

4124 writei (ip); 4174 && p->p pid==u.u_arg[0] 
4125 } 4175 && p->p_ ppid==u.u_procp->p pid) 
4126 iput (ip); 4176 goto found; 

4127 return (u.u_error==0) ; 4177 u.u_error = ESRCH; 

4128 } 4178 return; 

4129 /* ------------------------- */ 4179 

4130 4180 found: 

4131 /* 4181 while (ipc.ip_ lock) 

4132 * grow the stack to include the SP 4182 sleep(&ipc, IPCPRI); 

4133 * true return in successful. 4183 ipc.ip lock = p->p_pid; 

4134 */ 4184 ipc.ip data = u.u_ar0[R0]; 

4135 4185 ipc.ip addr - u.u_arg[1] & ~01; 
4136 grow(sp) 4186 ipc.ip req = u.u_arg[2]; 

4137 char *sp; 4187 p->p_ flag =& ~SWTED; 

4138 { 4188 setrun (p) ; 

4139 register a, si, i; 4189 while (ipc.ip req > 0) 

4140 4190 sleep(&ipc, IPCPRI); 

4141 if(sp >= -u.u_ssize*64) 4191 u.u_ar0[RO] = ipc.ip data; 

4142 return (0) ; 4192 if (ipc.ip_ req < 0) 

4143 si = ldiv(-sp, 64) - u.u_ssize + SINCR; 4193 u.u_error = EIO; 

4144 if(si <= 0) 4194 ipc.ip lock = 0; 

4145 return (0); 4195 wakeup (&ipc) ; 

4146 if(estabur(u.u_tsize, u.u_dsize, u.u_ssize+si, u.u_sep)) 4196 } 

4147 return (0) ; 4197 /* ------------------------- */ 
4148 expand(u.u_procp->p_size+si) ; 4198 

4149 a = u.u_procp->p addr + u.u_procp->p_ size; 4199 /* 
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4200 * Code that the child process 
4201 * executes to implement the command 
4202 * of the parent process in tracing. 


4203 */ 

4204 procxmt () 

4205 { 

4206 register int i; 

4207 register int *p; 

4208 

4209 if (ipc.ip lock != u.u_procp->p_ pid) 

4210 return (0); 

4211 i = ipc.ip req; 

4212 ipc.ip req = 0; 

4213 wakeup (&ipc) ; 

4214 switch (i) { 

4215 

4216 /* read user I */ 

4217 case 1: 

4218 if (fuibyte(ipc.ip addr) == -1) 
4219 goto error; 

4220 ipc.ip data = fuiword(ipc.ip addr) ; 
4221 break; 

4222 

4223 /* read user D */ 

4224 case 2: 

4225 if (fubyte(ipc.ip addr) == -1) 
4226 goto error; 

4227 ipc.ip data = fuword(ipc.ip addr); 
4228 break; 

4229 

4230 /* read u */ 

4231 case 3: 

4232 i = ipc.ip addr; 

4233 if (i<O || i >= (USIZE<<6)) 

4234 goto error; 

4235 ipc.ip data = u.inta[i>>1]; 

4236 break; 

4237 

4238 /* write user I (for now, always an error) */ 
4239 case 4: 

4240 if (suiword(ipc.ip addr, 0) < 0) 
4241 goto error; 

4242 suiword(ipc.ip addr, ipc.ip data); 
4243 break; 

4244 

4245 /* write user D */ 

4246 case 5: 

4247 if (suword(ipc.ip addr, 0) < 0) 
4248 goto error; 

4249 suword(ipc.ip addr, ipc.ip data); 
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4250 break; 

4251 

4252 /* write u */ 

4253 case 6: 

4254 p = &u.inta[ipc.ip addr>>1]; 
4255 if (p >= u.u_fsav && p < &u.u_fsav[25]) 
4256 goto ok; 

4257 for (i=0; i<9; i++) 

4258 if (p == &u.u_ar0[regloc[il]]) 
4259 goto ok; 

4260 goto error; 

4261 ok: 

4262 if (p == &u.u_arO[RPS]) { 

4263 /* assure user space */ 
4264 ipc.ip data =| 0170000; 
4265 /* priority 0 */ 
4266 ipc.ip data =& ~0340; 
4267 } 

4268 *p = ipc.ip data; 

4269 break; 

4270 

4271 /* set signal and continue */ 

4272 case 7: 

4273 u.u_procp->p sig = ipc.ip data; 
4274 return (1); 

4275 

4276 /* force exit */ 

4277 case 8: 

4278 exit(); 

4279 

4280 default: 

4281 error: 

4282 ipc.ip req = -1; 

4283 } 

4284 return (0) ; 

4285 } 

4286 /* ------------------------- */ 

4287 

4288 

4289 

4290 

4291 

4292 

4293 

4294 

4295 

4296 

4297 

4298 

4299 
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4300 /* 4350 # 

4301 * Text structure. 4351 #include "../param.h" 

4302 * One allocated per pure 4352 #include "../systm.h" 

4303 * procedure on swap device. 4353 #include "../user.h" 

4304 * Manipulated by text.c 4354 #include "../proc.h" 

4305 */ 4355 #include "../text.h" 

4306 struct text 4356 #include "../inode.h" 

4307 { 4357 

4308 int x daddr; /* disk address of segment */ 4358 /* Swap out process p. 

4309 int x_caddr; /* core address, if loaded */ 4359 * The ff flag causes its core to be freed-- 
4310 int x size; /* size (*64) */ 4360 * it may be off when called to create an image for a 
4311 int *x iptr; /* inode of prototype */ 4361 * child process in newproc. 

4312 char x count; /* reference count */ 4362 * Os is the old size of the data area of the process, 
4313 char x _ccount; /* number of loaded references */ 4363 * and is supplied during core expansion swaps. 
4314 } text [NTEXT] ; 4364 * 

4315 /* ------------------------- */ 4365 * panic: out of swap space 

4316 4366 * panic: swap error -- IO error 

4317 4367 */ 

4318 4368 xswap(p, ff, os) 

4319 4369 int *p; 

4320 4370 { register *rp, a; 

4321 4371 

4322 4372 rp = p; 

4323 4373 if(os == 0) 

4324 4374 os = rp->p_ size; 

4325 4375 a = malloc(swapmap, (rp->p_size+7)/8); 
4326 4376 if(a == NULL) 

4327 4377 panic("out of swap space"); 

4328 4378 xcecdec(rp->p_textp) ; 

4329 4379 rp->p_flag =| SLOCK; 

4330 4380 if(swap(a, rp->p_addr, os, 0)) 

4331 4381 panic("swap error"); 

4332 4382 if (ff) 

4333 4383 mfree(coremap, os, rp->p_ addr); 
4334 4384 rp->p_addr = a; 

4335 4385 rp->p_ flag =& ~(SLOAD|SLOCK) ; 

4336 4386 rp->p_time = 0; 

4337 4387 if(runout) { 

4338 4388 runout = 0; 

4339 4389 wakeup (&runout) ; 

4340 4390 } 

4341 4391 } 

4342 4392 /* ------------------------- */ 

4343 4393 

4344 4394 /* 

4345 4395 * relinquish use of the shared text segment 
4346 4396 * of a process. 

4347 4397 */ 

4348 4398 xfree() 

4349 4399 { register *xp, *ip; 
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4400 

4401 if ((xp=u.u_procp->p_textp) != NULL) { 

4402 u.u_procp->p_textp == NULL; 

4403 xccdec (xp) ; 

4404 if (--xp->x_count == 0) { 

4405 ip = xp->x_iptr; 

4406 if ((ip->i_mode&ISVTX) == 0) { 

4407 xp->x_iptr = NULL; 

4408 mfree(swapmap, (xp->x_size+7)/8, 
4409 xp->x_daddr) ; 
4410 ip->i_flag =& ~ITEXT; 

4411 iput (ip); 

4412 } 

4413 } 

4414 } 

4415 } 

4416 /* ------------------------- */ 

4417 

4418 /* Attach to a shared text segment. 

4419 * If there is no shared text, just return. 

4420 * If there is, hook up to it: 

4421 * if it is not currently being used, it has to be read 
4422 * in from the inode (ip) and established in the swap space. 
4423 * If it is being used, but not currently in core, 
4424 * a swap has to be done to get it back. 

4425 * The full coroutine glory has to be invoked-- 

4426 * see slp.c-- because if the calling process 

4427 * is misplaced in core the text image might not fit. 
4428 * Quite possibly the code after "out:" could check to 
4429 * see if the text does fit and simply swap it in. 
4430 * 

4431 * panic: out of swap space 

4432 */ 

4433 xalloc (ip) 

4434 int *ip; 

4435 

4436 register struct text *xp; 

4437 register *rp, ts; 

4438 

4439 if(u.u_arg[1] == 0) return; 

4440 rp = NULL; 

4441 for(xp = &text[0]; xp < &text[NTEXT]; xp++) 

4442 if(xp->x_iptr == NULL) { 

4443 if(rp == NULL) 

4444 rp = xp; 

4445 } else 

4446 if(xp->x_iptr == ip) { 

4447 xp->x_count++; 

4448 u.u_procp->p textp = xp; 
4449 goto out; 
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4450 } 

4451 if((xp=rp) == NULL) panic("out of text"); 
4452 xp->x_count = 1; 

4453 xp->x_ccount = 0; 

4454 xp->x_iptr = ip; 

4455 ts = ((u.u_arg[1]+63)>>6) & 01777; 
4456 xp->x_size = ts; 

4457 if ((xp->x_daddr = malloc(swapmap, (ts+7)/8)) == NULL) 
4458 panic("out of swap space"); 
4459 expand (USIZE+ts) ; 

4460 estabur(0, ts, 0, 0); 

4461 u.u_count = u.u_arg[1]; 

4462 u.u_offset[1] = 020; 

4463 u.u_base = 0; 

4464 readi (ip); 

4465 rp = u.u_procp; 

4466 rp->p_flag =| SLOCK; 

4467 swap (xp->x_daddr, rp->p_addr+USIZE, ts, 0); 
4468 rp->p_flag =& ~SLOCK; 

4469 rp->p_textp = xp; 

4470 rp = ip; 

4471 rp->i_flag =| ITEXT; 

4472 rp->i_count++; 

4473 expand (USIZE) ; 

4474 out: 

4475 if (xp->x_ccount == 0) { 

4476 savu(u.u_rsav) ; 

4477 savu(u.u_ssav) ; 

4478 xswap(u.u_procp, 1, 0); 
4479 u.u_procp->p flag =| SSWAP; 
4480 swtch () ; 

4481 /* no return */ 

4482 } 

4483 xp->x_ccount++; 

4484 } 

4485 /* ------------------------- */ 
4486 


4487 /* Decrement the in-core usage count of a shared text 
4488 * segment. When it drops to zero, free the core space. 
4489 */ 

4490 xccdec (xp) 

4491 int *xp; 

4492 { 

4493 register *rp; 

4494 

4495 if ((rp=xp) !=NULL && rp->x_ccount!=0) 

4496 if (--rp->x_ccount == 0) 

4497 mfree(coremap, rp->x_size, rp->x_caddr) ; 
4498 } 

4499 
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4550 

Each buffer in the pool is usually doubly linked into two 4551 
lists: for the device with which it is currently associat-4552 
ed (always) and also for a list of blocks available for 4553 
allocation for other use (usually). 4554 
The latter list is kept in last-used order, and the two 4555 
lists are doubly linked to make it easy to remove 4556 
a buffer from one list when it was found by 4557 
looking through the other. 4558 
A buffer is on the available list, and is liable 4559 
to be reassigned to another disk block, if and only 4560 
if it is not marked BUSY. When a buffer is busy, the 4561 
available-list pointers can be used for other purposes. 4562 
Most drivers use the forward ptr as a link in their I/O 4563 
active queue. 4564 
A buffer header contains all the information required 4565 
to perform I/O. 4566 
Most of the routines which manipulate these things 4567 
are in bio.c. 4568 
4569 

struct buf 4570 
4571 

int b flags; /* see defines below */ 4572 
struct buf *b_ forw; /* headed by devtab of b dev */ 4573 
struct buf *b_ back; /* "  */ 4574 
struct buf *av_forw; /* position on free list, */ 4575 
struct buf *av_back; /* if not BUSY*/ 4576 
int b dev; /* major+minor device name */ 4577 
int b_wcount; /* transfer count (usu. words) */ 4578 
char *b addr; /* low order core address */ 4579 
char *b xmem; /* high order core address */ 4580 
char *b blkno; /* block # on device */ 4581 
char b error; /* returned after I/O */ 4582 
char *b resid; /* words not transferred after 4583 
error */ 4584 

} buf [NBUF] ; 4585 
woe een eee -------------- */ 4586 
4587 

4588 

Each block device has a devtab, which contains private 4589 
state stuff and 2 list heads: the b forw/b back list, 4590 
which is doubly linked and has all the buffers currently 4591 
associated with the major device; 4592 
and the d_actf/d_actl list, which is private to the 4593 
device but in fact is always used for the head and tail 4594 
of the I/O queue for the device. 4595 
Various routines in bio.c look at b forw/b back 4596 
(notice they are the same as in the buf structure) 4597 
but the rest is private to each device driver. 4598 
4599 


+ Ft te Fe Fe FF FH 
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char d_ active; /* busy flag */ 
char d_errent; /* error count (for recovery) */ 
struct buf *b_forw; /* first buffer for this dev */ 
struct buf *b_ back; /* last buffer for this dev */ 
struct buf *d_actf; /* head of I/O queue */ 
struct buf *d_actl; /* tail of I/O queue */ 
}; 
[* ---- 2-2 een -----eeee */ 
/* 
* This is the head of the queue of available 
* buffers-- all unused except for the 2 list heads. 
*/ 
struct buf bfreelist; 
/* 
* These flags are kept in b flags. 
* 
/ 
#define B WRITE 0 /* non-read pseudo-flag */ 
#define B READ 01 /* read when I/O occurs */ 
#define B DONE 02 /* transaction finished */ 
#define B ERROR 04 /* transaction aborted */ 
#define B BUSY 010 /* not on av_forw/back list */ 
#define B PHYS 020 /* Physical IO potentially 
using the Unibus map */ 
#define B MAP 040 /* This block has the UNIBUS 
map allocated */ 
#define B WANTED 0100 /* issue wakeup when 
BUSY goes off */ 
#define B RELOC 0200 /* no longer used */ 
#define B_ASYNC 0400 /* don’t wait wait for I/O 
completion */ 
#define B DELWRI 01000 /* don’t write till block 


leaves available list */ 
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/* Used to dissect integer device code 
* into major (driver designation) and 
* minor (driver parameter) parts. 


*/ 

struct { 
char d_minor; 
char d_major; 


i 
ys See See a Se Se ete es ee ei */ 
/* Declaration of block device 
* switch. Each entry (row) is 
the only link between the 
main unix code and the driver. 
The initialization of the 
device switches is in the 
* file conf.c. 


+ Fe OF 


*/ 
struct bdevsw { 
int (*d_open) (); 
int (*d_close) (); 
int (*d_strategy) (); 
int *d_tab; 
} bdevswI]; 
[* ---- een nnn nee eee */ 


/* Nblkdev is the number of entries 
* (rows) in the block switch. It is 
* set in binit/bio.c by making 
* a pass over the switch. 

* Used in bounds checking on major 
* device numbers. 

*/ 
int nblkdev; 


/* Character device switch. 


*/: 
struct cdevsw { 
int (*d_open) (); 
int (*d_close) (); 
int (*d_read) (); 
int (*d_write) (); 
int (*d_sgtty) (); 
} cdevswI]; 
[* ---- een n nnn ee eee */ 


/* Number of character switch entries. 
* Set by cinit/tty.c 
*/ 


int nchrdev; 
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/* 

* this file is created, along with the file "low.s", 
* by the program "mkconf.c", to reflect the actual 

* configuration of peripheral devices on a system. 


*/ 


int (*bdevsw[]) () 

&nulldev, &nulldev, &rkstrategy, &rktab, /*rk */ 
&nodev, &nodev, &nodev, 0, /* rp */ 

&nodev, &nodev, &nodev, 0, /* rf */ 

&nodev, &nodev, &nodev, 0, /* tm */ 

&nodev, &nodev, &nodev, 0, /* tc */ 

&nodev, &nodev, &nodev, 0, /* hs */ 

&nodev, &nodev, &nodev, 0, /* hp */ 

&nodev, &nodev, &nodev, 0, /* ht */ 

0 


}; 


int (*cdevsw[]) () 


{ 


&klopen, &klclose, &klread, &klwrite, &klsgtty, 

/* console */ 
&pcopen, &pcclose, &pcread, &pcwrite, &nodev, 

/* pe */ 
&lpopen, &lpclose, &nodev, &lpwrite, &nodev, 

/* Ip */ 
&nodev, &nodev, &nodev, &nodev, é&nodev, /* dc */ 
&nodev, &nodev, &nodev, &nodev, é&nodev, /* dh */ 
&nodev, &nodev, &nodev, &nodev, é&nodev, /* dp */ 
&nodev, &nodev, &nodev, é&nodev, é&nodev, /* dj */ 
&nodev, &nodev, &nodev, &nodev, é&nodev, /* dn */ 
&nulldev, &nulldev, &mmread, &mmwrite, &nodev, 

/* mem */ 
&nulldev, &nulldev, &rkread, &rkwrite, &nodev, 

/* rk */ 
&nodev, &nodev, &nodev, &nodev, é&nodev, /* rf */ 
&nodev, &nodev, &nodev, é&nodev, é&nodev, /* rp */ 
&nodev, &nodev, &nodev, &nodev, é&nodev, /* tm */ 
&nodev, &nodev, &nodev, &nodev, é&nodev, /* hs */ 
&nodev, &nodev, &nodev, é&nodev, é&nodev, /* hp */ 
&nodev, &nodev, &nodev, &nodev, é&nodev, /* ht */ 
0 
}; 
int rootdev {(0<<8) |0}; 
int swapdev {(0<<8) |0}; 
int swplo 4000; /* cannot be zero */ 


int nswap 872; 
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# 

/* 
*/ 

#include "../param.h" 

#include "../user.h" 

#include "../buf.h" 

#include "../conf.h" 

#include "../systm.h" 

#include "../proc.h" 

#include "../seg.h" 

/* 
* This is the set of buffres proper, whose heads 
* were declared in buf.h. There can exist buffer 
* headers not pointing here that are used purely 
* as arguments to the I/O routines to describe 
* I/O to be done-- e.g. swbuf, just below, for 


* swapping. 
*/ 
char 


struct buf 


/* 


buffers [NBUF] [514]; 


swbuf ; 


* Declarations of the tables for the magtape devices; 


* see bdwrite. 
*/ 
int 
int 


tmtab; 
httab; 


/ 
The following 


already busy, 
The following 
getblk 
bread 
breada 


bwrite 
bdwrite 
bawrite 
brelse 


+ Fe FF FF FH HF HF HH HF HF HF FH HF HF HF 
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Sheet 47 


buffers with various side effects. 
arguments to an allocate routine are a device and 
a block number, 
the buffer header; 
so that no one else can touch it. 
already in core, 


several routines allocate and free 
In general the 


and the value is a pointer to 

the buffer is marked "busy" 

If the block was 
no I/O need be done; if it is 

the process waits until it becomes free. 
routines allocate a buffer: 


Eventually the buffer must be released, possibly with the 
side effect of writing it out, by using one of 
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/* Read in (if necessary) the block and 
* return a buffer pointer. 


*/ 
bread(dev, blkno) 
{ 
register struct buf *rbp; 
rbp = getblk(dev, blkno) ; 
if (rbp->b_flags&B DONE) 
return (rbp) ; 
rbp->b_ flags =| B READ; 
rbp->b_wcount = -256; 
(*bdevsw[dev.d major] .d_ strategy) (rbp) ; 
iowait (rbp) ; 
return (rbp) ; 
} 
[* ---- 2-2 ene ------eee */ 
/* 


* Read in the block, like bread, but also start I/O on the 
* read-ahead block (which is not allocated to the caller) 


*/ 

blkno, rablkno) 
register struct buf *rbp, 
register int dev; 


*rabp; 


dev = adev; 
rbp = 0; 
if (l!incore(dev, blkno)) { 
rbp = getblk(dev, blkno) ; 
if ((rbp->b_flags&B DONE) == 0 
rbp->b_ flags =| B READ 
rbp->b_wcount = -256; 


(*bdevsw[adev.d major] .d_ strategy) (rbp) ; 


} 
if (rablkno && !incore(dev, rablkno)) { 
rabp = getblk(dev, rablkno) ; 


if (rabp->b_ flags & B DONE) 
brelse(rabp) ; 
else { 


rabp->b flags =| B READ|B ASYNC; 


rabp->b wcount = -256; 


(*bdevsw[adev.d major] .d_ strategy) (rabp) ; 


} 


if (rbp==0) 


return (bread(dev, blkno) ); 
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4800 iowait (rbp) ; 4850 } 

4801 return (rbp) ; 4851 /* ------------------------- */ 

4802 } 4852 

4803 /* ------------------------- */ 4853 /* Release the buffer, start I/O on it, but don’t wait 
4804 4854 * for completion */ 
4805 /* 4855 

4806 * Write the buffer, waiting for completion. 4856 bawrite (bp) 

4807 * The release the buffer. 4857 struct buf *bp; 

4808 */ 4858 { 

4809 bwrite (bp) 4859 register struct buf *rbp; 

4810 struct buf *bp; 4860 

4811 { 4861 rbp = bp; 

4812 register struct buf *rbp; 4862 rbp->b_ flags =| B ASYNC; 

4813 register flag; 4863 bwrite(rbp) ; 

4814 4864 } 

4815 rbp = bp; 4865 /* ------------------------- */ 

4816 flag = rbp->b flags; 4866 

4817 rbp->b flags =& ~(B_ READ | B DONE | B ERROR | B DELWRI); 4867 /* release the buffer, with no I/O implied. 
4818 rbp->b_wcount = -256; 4868 */ 

4819 (*bdevsw[rbp->b_dev.d major] .d_strategy) (rbp) ; 4869 brelse (bp) 

4820 if ((flag&B_ASYNC) == 0) { 4870 struct buf *bp; 

4821 iowait (rbp) ; 4871 { 

4822 brelse(rbp) ; 4872 register struct buf *rbp, **backp; 

4823 } else if ((flag&B_DELWRI) ==0) 4873 register int sps; 

4824 geterror (rbp) ; 4874 

4825 } 4875 rbp = bp; 

4826 /* ------------------------- */ 4876 if (rbp->b_ flags&B WANTED) 

4827 4877 wakeup (rbp) ; 

4828 /* 4878 if (bfreelist.b flags&B WANTED) { 

4829 * Release the buffer, marking it so that if it is grabbed 4879 bfreelist.b flags =& ~B_ WANTED; 
4830 * for another purpose it will be written out before being 4880 wakeup (&bfreelist) ; 

4831 * given up (e.g. when writing a partial block where it is 4881 } 

4832 * assumed that another write for the same block will soon 4882 if (rbp->b_flags&B ERROR) 

4833 * follow). This can’t be done for magtape, since writes 4883 rbp->b_dev.d minor = -1; /* no assoc. on error */ 
4834 * must be done in the same order as requested. 4884 backp = &bfreelist.av_back; 

4835 */ 4885 sps = PS->integ; 

4836 bdwrite (bp) 4886 spl6(); 

4837 struct buf *bp; 4887 rbp->b_ flags =& ~(B WANTED|B BUSY|B ASYNC) ; 
4838 { 4888 (*backp) ->av_forw = rbp; 

4839 register struct buf *rbp; 4889 rbp->av_back = *backp; 

4840 register struct devtab *dp; 4890 *backp = rbp; 

4841 4891 rbp->av_forw = &bfreelist; 

4842 rbp = bp; 4892 PS->integ = sps; 

4843 dp = bdevsw[rbp->b dev.d major] .d_tab; 4893 } 

4844 if (dp == &tmtab || dp == &httab) 4894 /* ------------------------- */ 

4845 bawrite (rbp) ; 4895 

4846 else { 4896 /* See if the block is associated with some buffer 
4847 rbp->b_ flags =| B DELWRI | B DONE; 4897 * (mainly to avoid getting hung up on a wait in breada) 
4848 brelse(rbp) ; 4898 */ 

4849 } 4899 incore(adev, blkno) 
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4900 { 4950 } 

4901 register int dev; 4951 } 

4902 register struct buf *bp; 4952 spl6(); 

4903 register struct devtab *dp; 4953 if (bfreelist.av_forw == &bfreelist) { 
4904 4954 bfreelist.b flags =| B WANTED; 
4905 dev = adev; 4955 sleep(&bfreelist, PRIBIO) ; 
4906 dp = bdevsw[adev.d major] .d_tab; 4956 spl0(); 

4907 for (bp=dp->b_forw; bp != dp; bp = bp->b_forw) 4957 goto loop; 

4908 if (bp->b_blkno==blkno && bp->b_dev==dev) 4958 

4909 return (bp) ; 4959 spl0(); 

4910 return (0); 4960 notavail(bp = bfreelist.av_forw) ; 
4911 } 4961 if (bp->b_ flags & B_DELWRI) { 
4912 /* ------------------------- */ 4962 bp->b flags =| B_ASYNC; 
4913 4963 bwrite (bp) ; 

4914 /* Assign a buffer for the given block. If the appropriate 4964 goto loop; 

4915 * block is already associated, return it; otherwise search 4965 } 

4916 * for the oldest non-busy buffer and reassign it. 4966 bp->b flags = B BUSY | B RELOC; 
4917 * When a 512-byte area is wanted for some random reason 4967 bp->b_back->b_ forw = bp->b_forw; 
4918 * (e.g. during exec, for the user arglist) getblk can be 4968 bp->b_forw->b_ back = bp->b_back; 
4919 * called with device NODEV to avoid unwanted associativity. 4969 bp->b_forw = dp->b_forw; 

4920 */ 4970 bp->b_back = dp; 

4921 getblk(dev, blkno) 4971 dp->b_ forw->b_back = bp; 

4922 { 4972 dp->b forw = bp; 

4923 register struct buf *bp; 4973 bp->b_dev = dev; 

4924 register struct devtab *dp; 4974 bp->b_blkno = blkno; 

4925 extern lbolt; 4975 return (bp) ; 

4926 4976 } 

4927 if (dev.d major >= nblkdev) 4977 /* ------------------------- */ 
4928 panic ("blkdev") ; 4978 

4929 4979 /* Wait for I/O completion on the buffer; return errors 
4930 loop: 4980 * to the user. 

4931 if (dev < 0) 4981 */ 

4932 dp = &bfreelist; 4982 iowait (bp) 

4933 else { 4983 struct buf *bp; 

4934 dp = bdevsw[dev.d major] .d_tab; 4984 { 

4935 if(dp == NULL) 4985 register struct buf *rbp; 

4936 panic ("devtab") ; 4986 

4937 for (bp=dp->b forw; bp != dp; bp = bp->b forw) { 4987 rbp = bp; 

4938 if (bp->b_blkno!=blkno || bp->b_dev!=dev) 4988 spl6(); 

4939 continue; 4989 while ((rbp->b_flags&B_ DONE) ==0) 
4940 spl6(); 4990 sleep(rbp, PRIBIO) ; 

4941 if (bp->b_flags&B BUSY) { 4991 spl0(); 

4942 bp->b flags =| B WANTED; 4992 geterror (rbp) ; 

4943 sleep(bp, PRIBIO) ; 4993 } 

4944 spl0(); 4994 /* ------------------------- */ 
4945 goto loop; 4995 

4946 } 4996 /* Unlink a buffer from the available list and mark it busy. 
4947 spl0(); 4997 * (internal interface) 

4948 notavail (bp) ; 4998 */ 

4949 return (bp) ; 4999 notavil (bp) 
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5000 struct buf *bp; 


5001 { 

5002 register struct buf *rbp; 

5003 register int sps; 

5004 

5005 rbp = bp; 

5006 sps = PS->integ; 

5007 spl6(); 

5008 rbp->av_back->av_forw = rbp->av_forw; 
5009 rbp->av_forw->av_back = rbp->av_back; 
5010 rbp->b flags =| B BUSY; 

5011 PS->integ = sps; 

5012 } 

5013 /* ------------------------- */ 
5014 


5015 /* Mark I/O complete on a buffer, release it if i/o is 
5016 * asynchronous, and wake up anyone waiting for it. 
5017. */ 

5018 iodone (bp) 

5019 struct buf *bp; 


5020 { 

5021 register struct buf *rbp; 

5022 

5023 rbp = bp; 

5024 if (rbp->b_flags*B_ MAP) 

5025 mapfree(rbp) ; 

5026 rbp->b flags =| B DONE; 

5027 if (rbp->b_flags&B ASYNC) 

5028 brelse(rbp) ; 

5029 else { 

5030 rbp->b_ flags =& ~B WANTED; 
5031 wakeup (rbp) ; 

5032 } 

5033 } 

5034 /* ------------------------- */ 
5035 


5036 /* Zero the core associated with a buffer. 
5037 */ 

5038 clrbuf (bp) 

5039 int *bp; 


5040 { 

5041 register *p; 

5042 register c; 

5043 

5044 p = bp->b_addr; 
5045 c = 256; 

5046 do 

5047 *pt++ = 0; 
5048 while(--c); 

5049 } 
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5050 /* ------------------------- */ 
5051 
5052 /* Initialize the buffer I/O system by freeing 


5053 * all buffers and setting all device buffer lists to empty. 


5054 */ 

5055 binit() 

5056 { 

5057 register struct buf *bp; 

5058 register struct devtab *dp; 

5059 register int i; 

5060 struct bdevsw *bdp; 

5061 

5062 bfreelist.b forw = bfreelist.b back = 
5063 bfreelist.av_forw = bfreelist.av_back = 
5064 for (i=0; i<NBUF; i++) { 

5065 bp = &buf [i]; 

5066 bp->b_dev = -1; 

5067 bp->b_addr = buffers[i]; 

5068 bp->b_back = &bfreelist; 

5069 bp->b_forw = bfreelist.b forw; 
5070 bfreelist.b forw->b_ back = bp; 
5071 bfreelist.b forw = bp; 

5072 bp->b_flags = B BUSY; 

5073 brelse (bp) ; 

5074 } 

5075 i= 07 

5076 for (bdp = bdevsw; bdp->d_open; bdp++) { 
5077 dp = bdp->d_tab; 

5078 if(dp) { 

5079 dp->b_forw = dp; 

5080 dp->b_ back = dp; 

5081 } 

5082 i++; 

5083 

5084 nblkdev = i; 

5085 } 

5086 /* ------------------------- */ 
5087 


5088 /* Device start routine for disks 
5089 * and other devices that have the register 


5090 * layout of the older DEC controllers (RF, RK, 
5091 */ 
5092 #define IENABLE 0100 


5093 #define wCoM 02 

5094 #define RCOM 04 

5095 #define GO o1 

5096 devstart(bp, devloc, devblk, hbcom) 
5097 struct buf *bp; 

5098 int *devloc; 

5099 { 


&bfreelist; 


RP, TM) 
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register int *dp; 
register struct buf *rbp; 
register int com; 


/* block address */ 
/* buffer address */ 
/* word count */ 


dp = devloc; 

rbp = bp; 

*dp = devblk; 

*--dp = rbp->b_ addr; 

*--dp = rbp->b_wcount; 

com = (hbcom<<8) | IENABLE | GO | 


((rbp->b_xmem & 03) << 4); 


if (rbp->b_flags&B READ) 


/* command + x-mem */ 


wip 


com =| RCOM; 
else 
com =| WCOM; 
*--dp = com; 
} 
[*® ---- een nnn ne eee 
/* startup routine for RH controllers. */ 
#define RHWCOM 060 
#define RHRCOM 070 
rhstart(bp, devloc, devblk, abae) 


struct buf *bp; 

int *devloc, *abae; 
register int *dp; 
register struct buf *rbp; 
register int com; 


dp = devloc; 
rbp = bp; 
if(cputype == 70) 
*abae = rbp->b_xmem; 
devblk; 
*--dp = rbp->b_ addr; 
*--dp = rbp->b_wcount; 
com = IENABLE | GO | 


*dp = 


/* block address */ 
/* buffer address */ 
/* word count */ 


((rbp->b_xmem & 03) << 8); 


if (rbp->b_flags&B READ) 
com =| RHRCOM; else 
com =| RHWCOM; 

com; 


/* 
* 11/70 routine to allocate the 
* UNIBUS map and initialize for 


/* command + x-mem */ 


*/ 
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5150 * a unibus device. 

5151 * The code here and in 

5152 * rhstart assumes that an rh on an 11/70 
5153 * is an rh70 and contains 22 bit addressing. 
5154 */ 

5155 int maplock; 

5156 mapalloc (abp) 

5157 struct buf *abp; 

5158 { 

5159 register i, a; 

5160 register struct buf *bp; 

5161 

5162 if(cputype != 70) 

5163 return; 

5164 spl6(); 

5165 while(maplock&B BUSY) { 

5166 maplock =| B WANTED; 
5167 sleep (&maplock, PSWP) ; 
5168 

5169 maplock =| B_ BUSY; 

5170 sp10(); 

5171 bp = abp; 

5172 bp->b flags =| B MAP; 

5173 a = bp->b_xmem; 

5174 for (i=16; i<32; i=+2) 

5175 UBMAP->r[i+1] = a; 
5176 for(a++; i<48; i=+2) 

5177 UBMAP->r[i+1] = a; 
5178 bp->b_xmem = 1; 

5179 } 

5180 /* ------------------------- */ 
5181 

5182 mapfree (bp) 

5183 struct buf *bp; 

5184 { 

5185 

5186 bp->b_ flags =& ~B MAP; 

5187 if (maplock&B_ WANTED) 

5188 wakeup (&maplock) ; 

5189 maplock = 0; 

5190 } 

5191 /* ------------------------- */ 
5192 

5193 /* 

5194 * swap I/O 

5195 */ 

5196 swap(blkno, coreaddr, count, rdflg) 
5197 { 

5198 register int *fp; 

5199 
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5200 fp = &swbuf.b flags; 

5201 spl6(); 

5202 while (*fp&B BUSY) { 

5203 *fp =| B WANTED; 

5204 sleep(fp, PSWP); 

5205 } 

5206 *fp = B_BUSY | B_ PHYS | rdflg; 

5207 swbuf.b dev = swapdev; 

5208 swbuf.b wcount = - (count<<5); /* 32 w/block */ 
5209 swbuf.b blkno = blkno; 

5210 swbuf.b addr = coreaddr<<6; /* 64 b/block */ 
5211 swbuf.b xmem = (coreaddr>>10) & 077; 

5212 (*bdevsw[swapdev>>8] .d_strategy) (&swbuf) ; 
5213 spl6(); 

5214 while ((*fp&B_ DONE) ==0) 

5215 sleep(fp, PSWP); 

5216 if (*fp&B WANTED) 

5217 wakeup (fp) ; 

5218 sp10(); 

5219 *fp =& ~(B BUSY|B WANTED) ; 

5220 return (*fp&B ERROR) ; 

5221 } 

5222 /* ------------------------- */ 

5223 


5224 /* make sure all write-behind blocks 

5225 * on dev (or NODEV for all) 

5226 * are flushed out. 

5227 * (from umount and update) 

5228 */ 

5229 bflush (dev) 

5230 { 

5231 register struct buf *bp; 

5232 

5233 loop: 

5234 spl6(); 

5235 for (bp = bfreelist.av_forw; bp != &bfreelist; 
5236 bp = bp->av_forw) { 
5237 if (bp->b_flags&B DELWRI && 

5238 (dev == NODEV||dev == bp->b dev)) { 
5239 bp->b flags =| B_ASYNC; 
5240 notavail (bp) ; 

5241 bwrite (bp) ; 

5242 goto loop; 

5243 } 

5244 } 

5245 sp10(); 

5246 } 

5247 /* ------------------------- */ 

5248 

5249 /* 
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5250 * Raw I/O. The arguments are 

5251 * The strategy routine for the device 

5252 * A buffer, which will always be a special buffer 

5253 * header owned exclusively by the device for this purpose 
5254 * The device number 

5255 * Read/write flag 

5256 * Essentially all the work is computing physical addresses 


5257 * and validating them. 
5258 */ 

5259 physio(strat, abp, dev, rw) 
5260 struct buf *abp; 

5261 int (*strat) (); 


5262 { 

5263 register struct buf *bp; 

5264 register char *base; 

5265 register int nb; 

5266 int ts; 

5267 

5268 bp = abp; 

5269 base = u.u_base; 

5270 /* 

5271 * Check odd base, odd count, and address wraparound 
5272 */ 

5273 if (base&01 || u.u_count&01 || base>=base+u.u_count) 
5274 goto bad; 

5275 ts = (u.u_tsize+127) & ~0177; 

5276 if (u.u_sep) 

5277 ts = 0; 

5278 nb = (base>>6) & 01777; 

5279 /* 

5280 * Check overlap with text. (ts and nb now 

5281 * in 64-byte clicks) 

5282 */ 

5283 if (nb < ts) 

5284 goto bad; 

5285 /* 

5286 * Check that transfer is either entirely in the 
5287 * data or in the stack: that is, either 

5288 * the end is in the data or the start is in the stack 
5289 * (remember wraparound was already checked). 
5290 */ 

5291 if ((((base+u.u_count) >>6)&01777) >= ts+u.u_dsize 
5292 && nb < 1024-u.u_ssize) 

5293 goto bad; 

5294 spl6(); 

5295 while (bp->b flags&B BUSY) { 

5296 bp->b flags =| B WANTED; 

5297 sleep(bp, PRIBIO) ; 

5298 } 

5299 bp->b flags = B BUSY | B PHYS | rw; 
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5300 bp->b_ dev = dev; 5350 # 

5301 /* 5351 /* 

5302 * Compute physical address by simulating 5352 */ 

5303 * the segmentation hardware. 5353 

5304 */ 5354 /* 

5305 bp->b_addr = base&077; 5355 * RK disk driver 

5306 base = (u.u_sep? UDSA: UISA)->r[nb>>7] + (nb&0177); 5356 */ 

5307 bp->b_addr =+ base<<6; 5357 

5308 bp->b_xmem = (base>>10) & 077; 5358 #include "../param.h" 

5309 bp->b_blkno = lshift(u.u_offset, -9); 5359 #include "../buf.h" 

5310 bp->b_wcount = -((u.u_count>>1) & 077777); 5360 #include "../conf.h" 

5311 bp->b_error = 0; 5361 #include "../user.h" 

5312 u.u_procp->p_ flag =| SLOCK; 5362 

5313 (*strat) (bp); 5363 #define RKADDR 0177400 
5314 spl6(); 5364 #define NRK 4 

5315 while ((bp->b_flags&B DONE) == 0) 5365 #define NRKBLK 4872 
5316 sleep(bp, PRIBIO) ; 5366 

5317 u.u_procp->p flag =& ~SLOCK; 5367 #define RESET 0 

5318 if (bp->b_flags&B_ WANTED) 5368 #define GO o1 

5319 wakeup (bp) ; 5369 #define DRESET 014 
5320 spl0(); 5370 #define IENABLE 0100 
5321 bp->b flags =& ~(B BUSY|B WANTED) ; 5371 #define DRY 0200 
5322 u.u_count = (-bp->b_resid) <<1; 5372 #define ARDY 0100 
5323 geterror (bp) ; 5373 #define WLO 020000 
5324 return; 5374 #define CTLRDY 0200 
5325 bad: 5375 

5326 u.u_error = EFAULT; 5376 struct { 

5327 } 5377 int rkds; 

5328 /* ------------------------- */ 5378 int rker; 

5329 5379 int rkcs; 

5330 /* 5380 int rkwc; 

5331 * Pick up the device’s error number and pass it to the 5381 int rkba; 

5332 * user; if there is an error but the number is 0 set a 5382 int rkda; 

5333 * generalised code. Actually the latter is always true 5383 }; 

5334 * because devices don’t yet return specific errors. 5384 /* ------------------------- */ 
5335 */ 5385 

5336 geterror (abp) 5386 struct devtab rktab; 
5337 struct buf *abp; 5387 struct buf rrkbuf; 
5338 { 5388 

5339 register struct buf *bp; 5389 rkstrategy (abp) 

5340 5390 struct buf *abp; 

5341 bp = abp; 5391 { 

5342 if (bp->b_flags&B_ ERROR) 5392 register struct buf *bp; 
5343 if ((u.u_error = bp->b_ error) ==0) 5393 register *qc, *ql; 

5344 u.u_error = EIO; 5394 int d; 

5345 } 5395 

5346 /* ------------------------- */ 5396 bp = abp; 

5347 5397 if (bp->b_flags&B PHYS) 
5348 5398 mapalloc (bp) ; 
5349 5399 d = bp->b_dev.d minor-7; 
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5400 if(d <= 0) 5450 

5401 Qa. 1; 5451 rkintr () 

5402 if (bp->b blkno >= NRKBLK*d) { 5452 { 

5403 bp->b flags =| B ERROR; 5453 register struct buf *bp; 

5404 iodone (bp) ; 5454 

5405 return; 5455 if (rktab.d_ active == 0) 

5406 } 5456 return; 

5407 bp->av_forw = 0; 5457 bp = rktab.d actf; 

5408 sp15(); 5458 rktab.d_ active = 0; 

5409 if (rktab.d_actf==0) 5459 if (RKADDR->rkcs < 0) { /* error bit */ 
5410 rktab.d_actf = bp; 5460 deverror (bp, RKADDR->rker, RKADDR->rkds) ; 
5411 else 5461 RKADDR->rkcs = RESET|GO; 

5412 rktab.d_actl->av_forw = bp; 5462 while ((RKADDR->rkcs&CTLRDY) == 0) ; 
5413 rktab.d_actl = bp; 5463 if (++rktab.d_errcnt <= 10) { 
5414 if (rktab.d_active==0) 5464 rkstart (); 

5415 rkstart (); 5465 return; 

5416 spl10(); 5466 } 

5417 } 5467 bp->b_ flags =| B ERROR; 

5418 /* ------------------------- */ 5468 

5419 5469 rktab.d_errent = 0; 

5420 rkaddr (bp) 5470 rktab.d_actf = bp->av_forw; 

5421 struct buf *bp; 5471 iodone (bp) ; 

5422 { 5472 rkstart(); 

5423 register struct buf *p; 5473 } 

5424 register int b; 5474 /* ------------------------- */ 

5425 int d, m; 5475 

5426 5476 rkread (dev) 

5427 p = bp; 5477 

5428 b = p->b_blkno; 5478 

5429 m = p->b_dev.d minor - 7; 5479 physio(rkstrategy, &rrkbuf, dev, B READ); 
5430 if(m <= 0) 5480 

5431 d = p->b _dev.d minor; 5481 /* ------------------------- */ 

5432 else { 5482 

5433 d = lrem(b, m); 5483 rkwrite (dev) 

5434 b = ldiv(b, m); 5484 { 

5435 } 5485 

5436 return (d<<13 | (b/12)<<4 | b%12); 5486 physio(rkstrategy, &rrkbuf, dev, B WRITE); 
5437 } 5487 

5438 /* ------------------------- */ 5488 /* ------------------------- */ 

5439 5489 

5440 rkstart () 5490 

5441 { 5491 

5442 register struct buf *bp; 5492 

5443 5493 

5444 if ((bp = rktab.d_actf) == 0) 5494 

5445 return; 5495 

5446 rktab.d_active++; 5496 

5447 devstart (bp, &RKADDR->rkda, rkaddr(bp), 0); 5497 

5448 } 5498 

5449 /* ------------------------- */ 5499 
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/* 5550 /* 
* One file structure is allocated 5551 * Definition of the unix super block. 
* for each open/creat/pipe call. 5552 * The root super block is allocated and 
* Main use is to hold the read/write 5553 * read in iinit/alloc.c. Subsequently 
* pointer associated with each open 5554 * a super block is allocated and read 
* file. 5555 * with each mount (smount/sys3.c) and 
*/ 5556 * released with umount (sumount/sys3.c) . 
struct file 5557 * A disk block is ripped of for storage. 
{ 5558 * See alloc.c for general alloc/free 
char £ flag; 5559 * routines for free list and I list. 
char £ count; /* reference count */ 5560 */ 
int f inode; /* pointer to inode structure */ 5561 struct filsys 
char *f offset [2]; /* read/write character pointer */5562 { 
} file [NFILE] ; 5563 int s_isize; /* size in blocks of I list */ 
Y eens */ 5564 int s_ fsize; /* size in blocks of entire volume */ 
5565 int s nfree; /* number of in core free blocks 
/* flags */ 5566 (between 0 and 100) */ 
#define FREAD 01 5567 int s _free[100]; /* in core free blocks */ 
#define FWRITE 02 5568 int s_ninode; /* number of in core I nodes (0-100) */ 
#define FPIPE 04 5569 int s_inode[100];/* in core free I nodes */ 
5570 char s_flock; /* lock during free list manipulation */ 
5571 char s_ilock; /* lock during I list manipulation */ 
5572 char s_fmod; /* super block modified flag */ 
5573 char s_ronly; /* mounted read-only flag */ 
5574 int s_time[2]; /* current date of last update */ 
5575 int pad[50]; 
5576 }; 
5577 [* ------ nn cen ne nn nee */ 
5578 
5579 
5580 
5581 
5582 
5583 
5584 
5585 
5586 
5587 
5588 
5589 
5590 
5591 
5592 
5593 
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/* 

* Inode structure as it appears on 

* the disk. Not used by the system, 

* but by things like check, df, dump. 


*/ 
struct inode 
{ 

int i_mode; 

char i_nlink; 

char i_uid; 

char i_gid; 

char i_size0; 

char *i sizel; 

int i_addr[8]; 

int i_atime[2]; 

int i_mtime [2]; 
}; 
[*® ----- een enn */ 
/* modes */ 
#define IALLOC 0100000 
#define IFMT 060000 
#define IFDIR 040000 
#define IFCHR 020000 
#define IFBLK 060000 
#define ILARG 010000 
#define ISUID 04000 
#define ISGID 02000 
#define ISVTX 01000 
#define IREAD 0400 
#define IWRITE 0200 
#define IEXEC 0100 
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The I node is the focus of all 

file activity in unix. There is a unique 

inode allocated for each active file, 

each current directory, each mounted-on 

file, text file, and the root. An inode is ‘named’ 
by its dev/inumber pair. (iget/iget.c) 

Data, from mode on, is read in 

* from permanent inode on volume. 


+e ee FF OF 


*/ 

struct inode 
char i_ flag; 
char i_count; /* reference count */ 
int i_dev; /* device where inode resides */ 
int i_number; /* i number, 1-to-1 with device 

address */ 

int i_mode; 
char i_nlink; /* directory entries */ 
char i_uid; /* owner */ 
char i_gid; /* group of owner */ 
char i_size0; /* most significant of size */ 
char *i sizel; /* least sig */ 
int i_addr[8];/* device addresses constituting file */ 
int i_lastr; /* last logical block read (for 


read-ahead) */ 
} inode [NINODE] ; 
[* --------nnn---eeee */ 


/* flags */ 

#define ILOCK 01 /* inode is locked */ 

#define IUPD 02 /* inode has been modified */ 

#define IACC 04 /* inode access time to be updated */ 
#define IMOUNT 010 /* inode is mounted on */ 

#define IWANT 020 /* some process waiting on lock */ 
#define ITEXT 040 /* inode is pure text prototype */ 


/* modes */ 

#define IALLOC 0100000 /* file is used */ 

#define IFMT 060000 /* type of file */ 

#define IFDIR 040000 /* directory */ 

#define IFCHR 020000 /* character special */ 

#define IFBLK 060000 /* block special, 0 is regular */ 
#define ILARG 010000 /* large addressing algorithm */ 
#define ISUID 04000 /* set user id on execution */ 

#define ISGID 02000 /* set group id on execution */ 
#define ISVTX 01000 /* save swapped text even after use */ 
#define IREAD 0400 /* read, write, execute permissions */ 
#define IWRITE 0200 

#define IEXEC 0100 
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5700 # 5750 } else { 

5701 #include "../param.h" 5751 u.u_offset[1] = fp->f offset[1]; 
5702 #include "../systm.h" 5752 u.u_offset[0] = fp->f offset[0]; 
5703 #include "../user.h" 5753 if (m==FREAD) 

5704 #include "../reg.h" 5754 readi(fp->f_inode); else 
5705 #include "../file.h" 5755 writei(fp->f inode) ; 
5706 #include "../inode.h" 5756 dpadd(fp->f offset, u.u_arg[1]-u.u_count) ; 
5707 5757 

5708 /* 5758 u.u_ar0[RO] = u.u_arg[1]-u.u_count; 

5709 * read system call 5759 } 

5710 */ 5760 /* ------------------------- */ 

5711 read() 5761 

5712 { 5762 /* 

5713 rdwr (FREAD) ; 5763 * open system call 

5714 } 5764 */ 

5715 /* ------------------------- */ 5765 open () 

5716 5766 

5717 /* 5767 register *ip; 

5718 * write system call 5768 extern uchar; 

5719 */ 5769 

5720 write () 5770 ip = namei(&uchar, 0); 

5721 { 5771 if(ip == NULL) 

5722 rdwr (FWRITE) ; 5772 return; 

5723 } 5773 u.u_arg[1] ++; 

5724 /* ------------------------- */ 5774 openl(ip, u.u_arg[1], 0); 

5725 5775 } 

5726 /* 5776. /* sess eesasee sss esees see ack */ 

5727 * common code for read and write calls: BI77 

5728 * check permissions, set base, count, and offset, 5778 /* 

5729 * and switch out to readi, writei, or pipe code. 5779 * creat system call 

5730 */ 5780 */ 

5731 rdwr (mode) 5781 creat () 

5732 { 5782 

5733 register *fp, m; 5783 register *ip; 

5734 5784 extern uchar; 

5735 m = mode; 5785 

5736 fp = getf(u.u_ar0[R0]); 5786 ip = namei(&uchar, 1); 

5737 if(fp == NULL) 5787 if(ip == NULL) { 

5738 return; 5788 if (u.u_error) 

5739 if((fp->f£ flagem) == 0) { 5789 return; 

5740 u.u_error = EBADF; 5790 ip = maknode(u.u_arg[1] &07777& (~ISVTX) ) ; 
5741 return; 5791 if (ip==NULL) 

5742 } 5792 return; 

5743 u.u_base = u.u_arg[0]; 5793 openli(ip, FWRITE, 2); 

5744 u.u_count = u.u_arg[1]; 5794 } 

5745 u.u_segflg = 0; 5795 openl(ip, FWRITE, 1); 

5746 if(fp->f flag&FPIPE) { 5796 } 

5747 if (m==FREAD) 5797 /* ------------------------- */ 

5748 readp(fp); else 5798 

5749 writep (fp) ; 5799 /* 
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5800 * common code for open and creat. 

5801 * Check permissions, allocate an open file structure, 
5802 * and call the device open routine if any. 

5803 */ 

5804 openl(ip, mode, trf) 

5805 int *ip; 


5806 { 

5807 register struct file *fp; 

5808 register *rip, m; 

5809 int i; 

5810 

5811 rip = ip; 

5812 m = mode; 

5813 if(trf != 2) { 

5814 if (m&FREAD) 

5815 access(rip, IREAD) ; 
5816 if(m&FWRITE) { 

5817 access(rip, IWRITE) ; 
5818 if ((rip->i_mode&IFMT) == IFDIR) 
5819 u.u_error = EISDIR; 
5820 } 

5821 } 

5822 if (u.u_error) 

5823 goto out; 

5824 if (trf£) 

5825 itrunc (rip); 

5826 prele(rip); 

5827 if ((fp = falloc()) == NULL) 

5828 goto out; 

5829 fp->f flag = m&(FREAD|FWRITE) ; 
5830 fp->f inode = rip; 

5831 i = u.u_ar0[R0]; 

5832 openi(rip, m&FWRITE) ; 

5833 if(u.u_error == 0) 

5834 return; 

5835 u.u_ofile[i] = NULL; 

5836 fp->£ count--; 

5837 

5838 out: 

5839 iput (rip) ; 

5840 } 

5841 /* ------------------------- */ 
5842 

5843 /* 

5844 * close system call 

5845 */ 

5846 close() 

5847 { 

5848 register *fp; 

5849 
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5850 fp = getf(u.u_ar0[R0]); 

5851 if(fp == NULL) 

5852 return; 

5853 u.u_ofile[u.u_ar0O[R0O]] = NULL; 
5854 closef (fp) ; 

5855 } 

5856 /* ------------------------- */ 
5857 

5858 /* 

5859 * seek system call 

5860 */ 

5861 seek() 

5862 { 

5863 int n[2]; 

5864 register *fp, t; 

5865 

5866 fp = getf(u.u_ar0[R0]); 

5867 if(fp == NULL) 

5868 return; 

5869 if(fp->f£ flag&FPIPE) { 

5870 u.u_error = ESPIPE; 

5871 return; 

5872 } 

5873 t = u.u_arg[1]; 

5874 if(t > 2) { 

5875 n[1] = u.u_arg[0]<<9; 
5876 n[0] = u.u_arg[0]>>7; 
5877 if(t == 3) 

5878 n[0] =& 0777; 
5879 } else { 

5880 n[1] = u.u_arg[0]; 

5881 n[0] = 0; 

5882 if(t!=0 && n[1]<0) 

5883 n[0] = -1; 

5884 

5885 switch(t) { 

5886 

5887 case 1: 

5888 case 4: 

5889 n[0] =+ fp->f offset[0]; 
5890 dpadd(n, fp->f offset[1]); 
5891 break; 

5892 

5893 default: 

5894 n[0] =+ fp->f inode->i size0&0377; 
5895 dpadd(n, fp->f_inode->i_sizel); 
5896 

5897 case 0: 

5898 case 3: 

5899 i 
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5900 } 

5901 fp->f offset[1] = n[1]; 

5902 fp->f_offset[0] = n[0]; 

5903 } 

5904 /* ------------------------- */ 
5905 

5906 

5907 /* link system call 

5908 */ 

5909 link () 

5910 

5911 register *ip, *xp; 

5912 extern uchar; 

5913 

5914 ip = namei(&uchar, 0); 

5915 if(ip == NULL) 

5916 return; 

5917 if(ip->i_nlink >= 127) { 

5918 u.u_error = EMLINK; 

5919 goto out; 

5920 

5921 if ((ip->i_mode&IFMT)==IFDIR && !suser()) 
5922 goto out; 

5923 /* 

5924 * ulock to avoid possible hanging in namei 
5925 */ 

5926 ip->i_flag =& ~ILOCK; 

5927 u.u_dirp = u.u_arg[1]; 

5928 xp = namei(&uchar, 1); 

5929 if(xp != NULL) { 

5930 u.u_error = EEXIST; 

5931 iput (xp) ; 

5932 

5933 if (u.u_error) 

5934 goto out; 

5935 if(u.u_pdir->i dev != ip->i_dev) { 
5936 iput (u.u_pdir) ; 

5937 u.u_error = EXDEV; 

5938 goto out; 

5939 

5940 wdir (ip); 

5941 ip->i_nlink++; 

5942 ip->i_flag =| IUPD; 

5943 

5944 out: 

5945 iput (ip); 

5946 } 

5947 /* ------------------------- */ 
5948 

5949 /* 
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* mknod system call 
*/ 
mknod () 
{ 
register *ip; 
extern uchar; 


if(suser()) { 
ip = namei(&uchar, 1); 
if(ip != NULL) { 
u.u_error = EEXIST; 
goto out; 


} 


if (u.u_error) 

return; 
ip = maknode(u.u_arg[1]); 
if (ip==NULL) 

return; 
ip->i_addr[0] = u.u_arg[2]; 


out: 
iput (ip); 


[* -------- eee ------ee */ 


/* sleep system call 

* not to be confused with the sleep internal routine. 
*/ 

sslep () 


char *d[2]; 

spl7(); 

a[0] = time[0]; 

dad[1] = time[1]; 
dpadd(d, u.u_ar0[R0]); 


while(dpcmp(d[0], d[1], time[0], time[1]) > 0) { 


if(dpemp(tout[0], tout[1], time[0], time[1]) <= 0 || 
dpemp(tout[0], tout[1], d[0], d[1]) > 0) { 


tout[0] = d[0]; 
tout[1] = d[1]; 


} 
sleep(tout, PSLEP) ; 
spl0(); 
} 
[* ---- 2-2 -------eee */ 
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# 
#include "../param.h" 
#include "../systm.h" 
#include "../reg.h" 
#include "../buf.h" 
#include "../filsys.h" 
#include "../user.h" 
#include "../inode.h" 
#include "../file.h" 
#include "../conf.h" 
/* 
* the fstat system call. 
*/ 
fstat () 
register *fp; 
fp = getf(u.u_ar0[R0]); 
if(fp == NULL) 
return; 
statl(fp->f inode, u.u_arg[0]); 
} 
[® --- eee nn nen ene eee */ 
/* 
* the stat system call. 
*/ 
stat () 
{ 
register ip; 
extern uchar; 
ip = namei(&uchar, 0); 
if(ip == NULL) 
return; 
statl(ip, u.u_arg[1]); 
iput (ip); 
} 
[*® ---- enn nn nee eee */ 
/* 


* The basic routine for fstat and stat: 
* get the inode and pass appropriate parts back. 
*/ 
statl(ip, ub) 
int ip; 
{ 

register i, 


*bp, *cp; 
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iupdat(ip, time); 


bp = bread(ip->i_dev, ldiv(ip->i_number+31, 
cp = bp->b_ addr + 32*lrem(ip->i_number+31, 
ip = &(ip->i_dev); 


for(i=0; i<14; i++) { 
suword(ub, *ip++); 
ub =+ 2; 


for(i=0; i<4; i++) { 
suword(ub, *cp++) ; 
ub =+ 2; 


} 


brelse (bp) ; 
*/ 


/* 

* the dup system call. 
A 
dup () 

register i, *fp; 

fp = getf(u.u_ar0[R0]); 
if(fp == NULL) 
return; 
ufalloc()) < 0) 
return; 
u.u_ofile[i] = 
fp->£ count++; 


if ((i = 
fp; 


[* --------- eee */ 
/* 
* the mount system call. 
*/ 
smount () 
int d; 
register *ip; 
register struct mount *mp, 
extern uchar; 


*smp; 


d = getmdev(); 
if (u.u_error) 

return; 
u.u_dirp = u.u_arg[1]; 
ip = namei(&uchar, 0); 
if(ip == NULL) 

return; 


~ 
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6100 if(ip->i_count!=1 || (ip->i_mode& (IFBLK&IFCHR) ) !=0) 
6101 goto out; 

6102 smp = NULL; 

6103 for(mp = &mount[0]; mp < &mount[NMOUNT]; mp++) { 
6104 if(mp->m_bufp != NULL) { 
6105 if(d == mp->m_dev) 
6106 goto out; 
6107 } else 

6108 if(smp == NULL) 

6109 smp = mp; 

6110 

6111 if(smp == NULL) 

6112 goto out; 

6113 (*bdevsw[d.d_major].d_open) (d, !u.u_arg[2]); 
6114 if (u.u_error) 

6115 goto out; 

6116 mp = bread(d, 1); 

6117 if(u.u_error) { 

6118 brelse (mp) ; 

6119 goto outl; 

6120 } 

6121 smp->m_inodp = ip; 

6122 smp->m_dev = d; 

6123 smp->m_bufp = getblk(NODEV) ; 

6124 bcopy (mp->b_addr, smp->m_bufp->b addr, 256); 
6125 smp = smp->m_bufp->b addr; 

6126 smp->s_ilock = 0; 

6127 smp->s_ flock = 0; 

6128 smp->s_ronly = u.u_arg[2] & 1; 
6129 brelse (mp) ; 

6130 ip->i_flag =| IMOUNT; 

6131 prele(ip) ; 

6132 return; 

6133 

6134 out: 

6135 u.u_error = EBUSY; 

6136 outl: 

6137 iput (ip); 

6138 

6139 /* ------------------------- */ 
6140 

6141 /* 

6142 * the umount system call. 

6143 */ 

6144 sumount () 

6145 { 

6146 int d; 

6147 register struct inode *ip; 

6148 register struct mount *mp; 

6149 


Reproduced under license from the Western Electric Company, NY 
Copyright, J. Lions, 1976 


Sheet 61 


Sep 1 09:28 1988 unix/sys3.c Page 4 

6150 update (); 

6151 d = getmdev(); 

6152 if (u.u_error) 

6153 return; 

6154 for(mp = &mount[0]; mp < &mount [NMOUNT]; mp++) 
6155 if (mp->m_bufp!=NULL && d==mp->m_dev) 
6156 goto found; 

6157 u.u_error = EINVAL; 

6158 return; 

6159 

6160 found: 

6161 for(ip = &inode[0]; ip < &inode[NINODE]; ip++) 
6162 if (ip->i_number!=0 && d==ip->i_dev) { 
6163 u.u_error = EBUSY; 

6164 return; 

6165 

6166 (*bdevsw[d.d_major].d_close) (d, 0); 

6167 ip = mp->m_inodp; 

6168 ip->i_flag =& ~IMOUNT; 

6169 iput (ip) ; 

6170 ip = mp->m_bufp; 

6171 mp->m_bufp = NULL; 

6172 brelse(ip); 

6173 } 

6174 /* ------------------------- */ 

6175 

6176 /* 

6177 * Common code for mount and umount. 

6178 * Check that the user’s argument is a reasonable thing 
6179 * on which to mount, and return the device number if so. 
6180 */ 

6181 getmdev () 

6182 

6183 register d, *ip; 

6184 extern uchar; 

6185 

6186 ip = namei(&uchar, 0); 

6187 if(ip == NULL) 

6188 return; 

6189 if((ip->i_mode&IFMT) != IFBLK) 

6190 u.u_error = ENOTBLK; 

6191 d = ip->i_addr[0]; 

6192 if (ip->i_addr[0].d_major >= nblkdev) 

6193 u.u_error = ENXIO; 

6194 iput (ip); 

6195 return (d) ; 

6196 } 

6197 /* ------------------------- */ 

6198 

6199 
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6200 # 6250 dn = ip->i_dev; 

6201 /* 6251 } else { 

6202 */ 6252 dn = ip->i_addr[0]; 

6203 6253 rablock = bn+1; 

6204 #include "../param.h" 6254 

6205 #include "../inode.h" 6255 if (ip->i_lastr+1 == 1bn) 

6206 #include "../user.h" 6256 bp = breada(dn, bn, rablock) ; 
6207 #include "../buf.h" 6257 else 

6208 #include "../conf.h" 6258 bp = bread(dn, bn); 

6209 #include "../systm.h" 6259 ip->i_lastr = lbn; 

6210 6260 iomove (bp, on, n, B READ); 

6211 /* 6261 brelse (bp) ; 

6212 * Read the file corresponding to 6262 } while(u.u_error==0 && u.u_count!=0); 
6213 * the inode pointed at by the argument. 6263 

6214 * the actual read arguments are found 6264 /* ------------------------- */ 

6215 * in the variables: 6265 

6216 * u_base core address for destination 6266 /* 

6217 * u offset byte offset in file 6267 * Write the file corresponding to 

6218 * u_count number of bytes to read 6268 * the inode pointed at by the argument. 
6219 * u_segflg read to kernel/user 6269 * the actual read arguments are found 

6220 */ 6270 * in the variables: 

6221 readi (aip) 6271 * u_base core address for source 
6222 struct inode *aip; 6272 * u offset byte offset in file 

6223 { 6273 * u_count number of bytes to write 
6224 int *bp; 6274 * u_segflg write to kernel/user 
6225 int lbn, bn, on; 6275 */ 

6226 register dn, n; 6276 writei (aip) 

6227 register struct inode *ip; 6277 struct inode *aip; 

6228 6278 { 

6229 ip = aip; 6279 int *bp; 

6230 if(u.u_count == 0) 6280 int lbn, bn, on; 

6231 return; 6281 register dn, n; 

6232 ip->i_flag =| IAcC; 6282 register struct inode *ip; 

6233 if ((ip->i_mode&IFMT) == IFCHR) { 6283 

6234 (*cdevsw[ip->i_addr[0].d_major] .d_read) (ip->i_addr[0]); 6284 ip = aip; 

6235 return; 6285 ip->i_flag =| IACC|IUPD; 

6236 } 6286 if ((ip->i_mode&IFMT) == IFCHR) { 

6237 6287 (*cdevsw[ip->i_addr[0].d_major] .d_ write) (ip->i_addr[0]); 
6238 do { 6288 return; 

6239 lbn = bn = lshift(u.u_offset, -9); 6289 

6240 on = u.u_offset[1] & 0777; 6290 if (u.u_count == 0) 

6241 n = min(512-on, u.u_count) ; 6291 return; 

6242 if((ip->i_mode&IFMT) != IFBLK) { 6292 

6243 dn = dpcemp(ip->i_size0&0377, ip->i_sizel, 6293 do { 

6244 u.u_offset[0], u.u_offset[1]); 6294 bn = lshift(u.u_offset, -9); 
6245 if(dn <= 0) 6295 on = u.u_offset[1] & 0777; 

6246 return; 6296 n = min(512-on, u.u_count); 

6247 n = min(n, dn); 6297 if((ip->i_mode&IFMT) != IFBLK) { 
6248 if ((bn = bmap(ip, lbn)) == 0) 6298 if ((bn = bmap(ip, bn)) == 0) 
6249 return; 6299 return; 
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dn = ip->i_dev; 
} else 
dn = ip->i_addr[0]; 
if(n == 512) 
bp = getblk(dn, bn); else 
bp = bread(dn, bn); 
iomove (bp, on, n, B WRITE); 
if(u.u_error != 0) 


brelse(bp); else 
if ((u.u_offset[1] &0777) ==0) 
bawrite(bp); else 
bdwrite (bp) ; 
if (dpemp (ip->i_size0&0377, ip->i_sizel, 
u.u_offset[0], u.u_offset[1]) < 0 && 
(ip->i_mode& (IFBLK&IFCHR)) == 0) { 
ip->i_sizeO = u.u_offset[0]; 
ip->i_sizel = u.u_offset[1]; 


ip->i_flag =| IUPD; 
} while(u.u_error==0 && u.u_count!=0); 


[*® ---- een nn nn nee ee */ 


/* Return the logical maximum 
* of the 2 arguments. 
*/ 
max(a, b) 
char *a, 


{ 


*b; 


if(a > b) 
return (a) ; 
return (b) ; 


[® wn nee nen nn nn eee */ 


/* Return the logical minimum 
* of the 2 arguments. 
*/ 
min(a, b) 
char *a, 


{ 


*b; 


if(a < b) 
return (a) ; 
return (b) ; 


[*® --- nee nnn nn nn eee */ 
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6350 /* Move ‘an’ bytes at byte location 

6351 * &bp->b_addr[o] to/from (flag) the 

6352 * user/kernel (u.segflg) area starting at u.base. 
6353 * Update all the arguments by the number 
6354 * of bytes moved. 

6355 * 

6356 * There are 2 algorithms, 

6357 * if source address, dest address and count 
6358 * are all even in a user copy, 

6359 * then the machine language copyin/copyout 
6360 * is called. 

6361 * If not, its done byte-by-byte with 

6362 * cpass and passc. 

6363 */ 

6364 iomove(bp, o, an, flag) 

6365 struct buf *bp; 

6366 { 

6367 register char *cp; 

6368 register int n, t; 

6369 

6370 n = an; 

6371 cp = bp->b addr + 0; 

6372 if(u.u_segflg==0 && ((n | cp | u.u_base)&01)==0) { 
6373 if (flag==B WRITE) 

6374 cp = copyin(u.u_base, cp, n); 
6375 else 

6376 cp = copyout(cp, u.u_base, n); 
6377 if (cp) { 

6378 u.u_error = EFAULT; 

6379 return; 

6380 } 

6381 u.u_base =+ n; 

6382 dpadd(u.u_offset, n); 

6383 u.u_count =- n; 

6384 return; 

6385 

6386 if (flag==B WRITE) { 

6387 while(n--) { 

6388 if ((t = cpass()) < 0) 
6389 return; 

6390 *copt++ = t; 

6391 

6392 } else 

6393 while (n--) 

6394 if (passc(*cp++) < 0) 

6395 return; 

6396 } 

6397 /* ------------------------- */ 

6398 

6399 

Reproduced under license from the Western Electric Company, NY 
Copyright, J. Lions, 1976 

Sheet 63 


Sep 1 09:28 1988 unix/subr.c Page 1 Sep 1 09:28 1988 unix/subr.c Page 2 


6400 # 6450 nb = bp->b_blkno; 

6401 #include "../param.h" 6451 ip->i_addr[bn] = nb; 
6402 #include "../conf.h" 6452 ip->i_flag =| IUPD; 
6403 #include "../inode.h" 6453 

6404 #include "../user.h" 6454 rablock = 0; 

6405 #include "../buf.h" 6455 if (bn<7) 

6406 #include "../systm.h" 6456 rablock = ip->i_addr[bn+1]; 
6407 6457 return (nb) ; 

6408 /* Bmap defines the structure of file system storage 6458 } 

6409 * by returning the physical block number on a device given 6459 

6410 * the inode and the logical block number in a file. 6460 /* large file algorithm */ 

6411 * When convenient, it also leaves the physical 6461 

6412 * block number of the next block of the file in rablock 6462 large: 

6413 * for use in read-ahead. 6463 i = bn>>8; 

6414 */ 6464 if(bn & 0174000) 

6415 bmap(ip, bn) 6465 i= 7; 

6416 struct inode *ip; 6466 if ((nb=ip->i_addr[i]) == 0) { 

6417 int bn; 6467 ip->i_flag =| IUPD; 

6418 { 6468 if ((bp = alloc(d)) == NULL) 
6419 register *bp, *bap, nb; 6469 return (NULL) ; 

6420 int *nbp, d, i; 6470 ip->i_addr[i] = bp->b_blkno; 
6421 6471 } else 

6422 d = ip->i_dev; 6472 bp = bread(d, nb); 

6423 if(bn & ~077777) { 6473 bap = bp->b_ addr; 

6424 u.u_error = EFBIG; 6474 

6425 return (0) ; 6475 /* "huge" fetch of double indirect block */ 
6426 } 6476 

6427 if((ip->i_mode&ILARG) == 0) { 6477 if(i == 7) { 

6428 6478 i = ((bn>>8) & 0377) - 7; 

6429 /* small file algorithm */ 6479 if((nb=bap[i]) == 0) { 

6430 6480 if((nbp = alloc(d)) == NULL) { 
6431 if((bn & ~7) != 0) { 6481 brelse (bp) ; 
6432 6482 return (NULL) ; 
6433 /* convert small to large */ 6483 

6434 6484 bap[i] = nbp->b_blkno; 
6435 if ((bp = alloc(d)) == NULL) 6485 bdwrite (bp) ; 

6436 return (NULL) ; 6486 } else { 

6437 bap = bp->b_addr; 6487 brelse (bp) ; 

6438 for(i=0; i<8; i++) { 6488 nbp = bread(d, nb); 
6439 *bap++ = ip->i_addr[il]; 6489 } 

6440 ip->i_addr[i] = 0; 6490 bp = nbp; 

6441 } 6491 bap = bp->b addr; 

6442 ip->i_addr[0] = bp->b_blkno; 6492 } 

6443 bdwrite (bp) ; 6493 

6444 ip->i_mode =| ILARG; 6494 /* normal indirect fetch */ 

6445 goto large; 6495 

6446 } 6496 i = bn & 0377; 

6447 nb = ip->i_addr [bn] ; 6497 if((nb=bap[i]) == 0 && (nbp = alloc(d)) != NULL) { 
6448 if(nb == 0 && (bp = alloc(d)) != NULL) { 6498 nb = nbp->b_blkno; 

6449 bdwrite (bp) ; 6499 bap[i] = nb; 
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6500 bdwrite (nbp) ; 6550 if ((c=fubyte(u.u_base)) < 0) { 
6501 bdwrite (bp) ; 6551 u.u_error = EFAULT; 
6502 } else 6552 return (-1) ; 

6503 brelse (bp) ; 6553 } 

6504 rablock = 0; 6554 u.u_count--; 

6505 if(i < 255) 6555 if(++u.u_offset[1] == 0) 

6506 rablock = bap[i+1]; 6556 u.u_offset [0]++; 

6507 return (nb) ; 6557 u.u_base++; 

6508 } 6558 return (c&0377) ; 

6509 /* ------------------------- */ 6559 } 

6510 6560 /* ------------------------- */ 
6511 /* Pass back c to the user at his location u_base; 6561 

6512 * update u_base, u_count, and u_ offset. Return -1 6562 /* 

6513 * on the last character of the user’s read. 6563 * Routine which sets a user error; placed in 
6514 * u_base is in the user address space unless u_segflg 6564 * illegal entries in the bdevsw and cdevsw tables. 
6515 * is set. 6565 */ 

6516 */ 6566 nodev() 

6517 passc(c) 6567 { 

6518 char c; 6568 

6519 { 6569 u.u_error = ENODEV; 

6520 6570 } 

6521 if (u.u_segflg) 6571 /* ------------------------- */ 
6522 *u.u_base =c; else 6572 

6523 if (subyte(u.u_base, c) < 0) { 6573 /* 

6524 u.u_error = EFAULT; 6574 * Null routine; placed in insignificant entries 
6525 return (-1); 6575 * in the bdevsw and cdevsw tables. 
6526 } 6576 */ 

6527 u.u_count--; 6577 nulldev() 

6528 if (++u.u_offset[1] == 0) 6578 { 

6529 u.u_offset [0]++; 6579 } 

6530 u.u_base++; 6580 /* ------------------------- */ 
6531 return(u.u_count == 0? -1: 0); 6581 

6532 } 6582 /* 

6533 /* ------------------------- */ 6583 * copy count words from from to to. 
6534 6584 */ 

6535 /* 6585 bcopy(from, to, count) 

6536 * Pick up and return the next character from the user’s 6586 int *from, *to; 

6537 * write call at location u_base; 6587 { 

6538 * update u_base, u_count, and u_offset. Return -1 6588 register *a, *b, c; 

6539 * when u_count is exhausted. u_base is in the user’s 6589 

6540 * address space unless u_segflg is set. 6590 a = from; 

6541 */ 6591 b = to; 

6542 cpass() 6592 c = count; 

6543 { 6593 do 

6544 register c; 6594 *b++ = *att; 

6545 6595 while (--c); 

6546 if(u.u_count == 0) 6596 } 

6547 return (-1) ; 6597 /* ------------------------- */ 
6548 if (u.u_segflg) 6598 

6549 c = *u.u_base; else 6599 
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# 
/* 
*/ 
#include "../param.h" 
#include "../user.h" 
#include "../filsys.h" 
#include "../file.h" 
#include "../conf.h" 
#include "../inode.h" 
#include "../reg.h" 
/* 
* Convert a user supplied 
* file descriptor into a pointer 
* to a file structure. 
* 


Only task is to check range 
* of the descriptor. 


*/ 
getf (f) 
{ 
register *fp, rf; 
rf = £; 
if(rf<0 || r£>=NOFILE) 
goto bad; 
fp = u.u_ofile[rf]; 
if(fp != NULL) 
return (fp) ; 
bad: 
u.u_error = EBADF; 
return (NULL) ; 
} 
[*® ----- eee n-ne eee */ 
/* 


* Internal form of close. 

* Decrement reference count on 

* file structure and call closei 

* on last closef. 

* Also make sure the pipe protocol 
* does not constipate. 


closef (fp) 
int *fp; 
{ 


register *rfp, *ip; 


rfp = fp; 
if(rfp->f flag&FPIPE) { 


Copyright, J. Lions, 1976 


Sheet 66 


Sep 


6650 
6651 
6652 
6653 
6654 
6655 
6656 
6657 
6658 
6659 
6660 
6661 
6662 
6663 
6664 
6665 
6666 
6667 
6668 
6669 
6670 
6671 
6672 
6673 
6674 
6675 
6676 
6677 
6678 
6679 
6680 
6681 
6682 
6683 
6684 
6685 
6686 
6687 
6688 
6689 
6690 
6691 
6692 
6693 
6694 
6695 
6696 
6697 
6698 
6699 


Reproduced under license from the Western Electric Company, NY 


1 09:28 1988 unix/fio.c Page 2 


ip = rfp->f inode; 

ip->i_mode =& ~(IREAD|IWRITE) ; 
wakeup (ip+1) ; 

wakeup (ip+2) ; 


} 


if(rfp->f count <= 1) 


closei(rfp->f inode, rfp->f flag&FWRITE) ; 


rfp->f£ count--; 


} 
[* ---- 2-2 eee ------eeee */ 


/* 

Decrement reference count on an 
inode due to the removal of a 
referencing file structure. 

On the last closei, switchout 

to the close entry point of special 
device handler. 

Note that the handler gets called 
on every open and only on the last 
close. 


+e ee FF OF OF 


* 


*/ 
closei(ip, rw) 
int *ip; 


register *rip; 
register dev, maj; 


Fip = ip; 

dev = rip->i_addr[0]; 

maj = rip->i_addr[0].d_major; 
if(rip->i_count <= 1) 
switch(rip->i_mode&IFMT) { 


case IFCHR: 
(*cdevsw[maj] .d_close) (dev, rw); 
break; 


case IFBLK: 
(*bdevsw[maj] .d_close) (dev, rw); 


iput (rip); 


} 
[* -------nnnn-eeeeee */ 


/* 

* openi called to allow handler 

* of special files to initialize and 
* validate before actual I0. 

* Called on all sorts of opens 
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* and also on mount. 
*/ 
openi (ip, 
int *ip; 


rw) 


register *rip; 
register dev, maj; 


rip = ip; 
dev = rip->i_addr[0]; 
maj = rip->i_addr[0].d_major; 


switch(rip->i_mode&IFMT) { 


case IFCHR: 
if(maj >= nchrdev) 
goto bad; 
(*cdevsw[maj] .d_open) (dev, 
break; 


rw); 


case IFBLK: 
if(maj >= nblkdev) 
goto bad; 


(*bdevsw[maj].d_open) (dev, rw); 


} 


return; 


bad: 


u.u_error = ENXIO; 


sf elas me em */ 
/* 

Check mode permission on inode pointer. 
Mode is READ, WRITE, or EXEC. 

In the case of WRITE, the 
read-only status of the file 
system is checked. 

Also in WRITE, prototype text 
segments cannot be written. 

The mode is shifted to select 

the owner/group/other fields. 

The super user is granted all 
permissions except for EXEC where 
at least one of the EXEC bits must 
be on. 


+e ee FF HF HF HH OF 


* 


nfs 
access(aip, mode) 
int *aip; 

{ 


register *ip, m; 
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6750 

6751 ip = aip; 

6752 m = mode; 

6753 if(m == IWRITE) { 

6754 if (getfs(ip->i_dev)->s_ronly != 0) { 
6755 u.u_error = EROFS; 
6756 return (1); 

6757 

6758 if(ip->i_ flag & ITEXT) { 
6759 u.u_error = ETXTBSY; 
6760 return (1); 

6761 } 

6762 } 

6763 if(u.u_uid == 0) { 

6764 if(m == IEXEC && (ip->i_mode & 
6765 (IEXEC | (IEXEC>>3) | (IEXEC>>6))) == 0) 
6766 goto bad; 
6767 return (0); 

6768 

6769 if(u.u_uid != ip->i_uid) { 

6770 mM =>> 3; 

6771 if(u.u_gid != ip->i_ gid) 
6772 mM =>> 3; 

6773 

6774 if ((ip->i_mode&m) != 0) 

6775 return (0); 

6776 

6777 bad: 

6778 u.u_error = EACCES; 

6779 return (1); 

6780 } 

6781 /* ------------------------- */ 
6782 

6783 /* 

6784 * Look up a pathname and test if 
6785 * the resultant inode is owned by the 
6786 * current user. 

6787 * If not, try for super-user. 

6788 * If permission is granted, 

6789 * return inode pointer. 

6790 */ 

6791 owner () 

6792 { 

6793 register struct inode *ip; 

6794 extern uchar () ; 

6795 

6796 if ((ip = namei(uchar, 0)) == NULL) 
6797 return (NULL) ; 

6798 if(u.u_uid == ip->i_uid) 

6799 return (ip) ; 


Reproduced under license from the Western Electric Company, NY 


Copyright, 


J. Lions, 1976 


Sheet 67 


Sep 1 09:28 1988 unix/fio.c Page 5 Sep 1 09:28 1988 unix/fio.c Page 6 


6800 if (suser()) 6850 register i; 

6801 return (ip) ; 6851 

6802 iput (ip); 6852 if ((i = ufalloc()) < 0) 

6803 return (NULL) ; 6853 return (NULL) ; 

6804 } 6854 for (fp = &file[0]; fp < &file[NFILE]; fp++) 
6805: ./* eeeeecesSee eee cue pees */ 6855 if (fp->f count==0) { 

6806 6856 u.u_ofile[i] = fp; 
6807 /* 6857 fp->f£ count++; 
6808 * Test if the current user is the 6858 fp->f_offset[0] = 0; 
6809 * super user. 6859 fp->f_offset[1] = 0; 
6810 */ 6860 return (fp) ; 

6811 suser () 6861 

6812 { 6862 printf("no file\n"); 

6813 6863 u.u_error = ENFILE; 

6814 if(u.u_uid == 0) 6864 return (NULL) ; 

6815 return (1) ; 6865 } 

6816 u.u_error = EPERM; 6866 /* ------------------------- */ 
6817 return (0) ; 6867 

6818 } 6868 

6819 /* ------------------------- */ 6869 

6820 6870 

6821 /* 6871 

6822 * Allocate a user file descriptor. 6872 

6823 */ 6873 

6824 ufalloc() 6874 

6825 { 6875 

6826 register i; 6876 

6827 6877 

6828 for (i=0; i<NOFILE; i++) 6878 

6829 if (u.u_ofile[i] == NULL) { 6879 

6830 u.u_ar0[RO] = 1; 6880 

6831 return (i); 6881 

6832 } 6882 

6833 u.u_error = EMFILE; 6883 

6834 return (-1); 6884 

6835 } 6885 

6836 /* ------------------------- */ 6886 

6837 6887 

6838 /* 6888 

6839 * Allocate a user file descriptor 6889 

6840 * and a file structure. 6890 

6841 * Initialize the descriptor 6891 

6842 * to point at the file structure. 6892 

6843 * 6893 

6844 * no file -- if there are no available 6894 

6845 * file structures. 6895 

6846 */ 6896 

6847 falloc() 6897 

6848 { 6898 

6849 register struct file *fp; 6899 
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6900 # 6950 * free blocks; the last of these is read to 
6901 /* 6951 * obtain 100 more. . 

6902 */ 6952 * 

6903 6953 * no space on dev x/y -- when 

6904 #include "../param.h" 6954 * the free list is exhausted. 

6905 #include "../systm.h" 6955 */ 

6906 #include "../filsys.h" 6956 alloc (dev) 

6907 #include "../conf.h" 6957 

6908 #include "../buf.h" 6958 int bno; 

6909 #include "../inode.h" 6959 register *bp, *ip, *fp; 

6910 #include "../user.h" 6960 

6911 6961 fp = getfs (dev); 

6912 /* 6962 while(fp->s_ flock) 

6913 * iinit is called once (from main) 6963 sleep (&fp->s_flock, PINOD) ; 
6914 * very early in initialization. 6964 do { 

6915 * It reads the root’s super block 6965 if(fp->s_nfree <= 0) 

6916 * and initializes the current date 6966 goto nospace; 

6917 * from the last modified date. 6967 bno = fp->s_free[--fp->s_ nfree] ; 
6918 * 6968 if(bno == 0) 

6919 * panic: iinit -- cannot read the super 6969 goto nospace; 

6920 * block. Usually because of an IO error. 6970 } while (badblock(fp, bno, dev)); 
6921 */ 6971 if(fp->s_nfree <= 0) 

6922 iinit() 6972 fp->s_flock++; 

6923 { 6973 bp = bread(dev, bno); 

6924 register *cp, *bp; 6974 ip = bp->b_ addr; 

6925 6975 fp->s_nfree = *ip++; 

6926 (*bdevsw[rootdev.d major] .d_open) (rootdev, 1); 6976 bcopy(ip, fp->s_free, 100); 
6927 bp = bread(rootdev, 1); 6977 brelse (bp) ; 

6928 cp = getblk(NODEV) ; 6978 fp->s_flock = 0; 

6929 if (u.u_error) 6979 wakeup (&fp->s_ flock) ; 

6930 panic("iinit"); 6980 } 

6931 bcopy (bp->b_addr, cp->b_ addr, 256); 6981 bp = getblk(dev, bno) ; 

6932 brelse (bp) ; 6982 clrbuf (bp) ; 

6933 mount [0].m_bufp = cp; 6983 fp->s_fmod = 1; 

6934 mount [0] .m dev = rootdev; 6984 return (bp) ; 

6935 cp = cp->b addr; 6985 

6936 cep->s_ flock = 0; 6986 nospace: 

6937 cp->s_ilock = 0; 6987 fp->s_nfree = 0; 

6938 cp->s_ronly = 0; 6988 prdev("no space", dev); 

6939 time[0] = cp->s_time[0]; 6989 u.u_error = ENOSPC; 

6940 time[1] = cp->s_time[1]; 6990 return (NULL) ; 

6941 } 6991 } 

6942 /* ------------------------- */ 6992 /*------------------------- */ 
6943 /* ------------------------- */ 6993 /*------------------------- */ 
6944 6994 

6945 /* 6995 /* 

6946 * alloc will obtain the next available 6996 * place the specified disk block 
6947 * free disk block from the free list of 6997 * back on the free list of the 

6948 * the specified device. 6998 * specified device. 

6949 * The super block has up to 100 remembered 6999 */ 
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7000 free(dev, bno) 


7001 { 
7002 
7003 
7004 
7005 
7006 
7007 
7008 
7009 
7010 
7011 
7012 
7013 
7014 
7015 
7016 
7017 
7018 
7019 
7020 
7021 
7022 
7023 
7024 
7025 
7026 
7027 } 
7028 / 
7029 / 
7030 
7031 / 
7032 
7033 
7034 
7035 
7036 
7037 
7038 
7039 


register *fp, *bp, *ip; 


fp = getfs (dev); 
fp->s_fmod = 1; 
while(fp->s_ flock) 
sleep(&fp->s_ flock, PINOD) ; 
if (badblock(fp, bno, dev) ) 
return; 
if(fp->s_ nfree <= 0) { 
fp->s_ nfree 


= 1; 
fp->s_free[0] = 


0; 


if(fp->s_ nfree >= 100) { 
fp->s_ flock++; 
bp = getblk(dev, bno) ; 
ip = bp->b_ addr; 
*ipt++ = fp->s_nfree; 
bcopy(fp->s_ free, ip, 100); 
fp->s nfree = 0; 
bwrite (bp) ; 
fp->s_ flock = 0; 
wakeup (&fp->s_ flock) ; 
} 
fp->s_free[fp->s_ nfree++] = bno; 
fp->s_fmod = 1; 


* 

Check that a block number is in the 
range between the I list and the size 

of the device. 

This is used mainly to check that a 
garbage file system has not been mounted. 


+ ee ee 


* bad block on dev x/y -- not in range 


*/ 


7040 badblock(afp, abn, dev) 


7041 { 
7042 
7043 
7044 
7045 
7046 
7047 
7048 
7049 


register struct filsys *fp; 
register char *bn; 


fp = afp; 
bn = abn; 
if (bn < fp->s_isize+2 || bn >= fp->s fsize) { 


prdev("bad block", dev); 
return (1) ; 
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7050 } 

7051 return (0) ; 

7052 } 

7053 /* ------------------------- */ 
7054 /* ------------------------- */ 
7055 

7056 /* 

7057 * Allocate an unused I node 

7058 * on the specified device. 

7059 * Used with file creation. 

7060 * The algorithm keeps up to 

7061 * 100 spare I node in the 

7062 * super block. When this runs out, 
7063 * a linear search through the 

7064 * I list is instituted to pick 

7065 * up 100 more. 

7066 */ 

7067 ialloc (dev) 

7068 

7069 register *fp, *bp, *ip; 

7070 int i, j, k, ino; 

7071 

7072 fp = getfs (dev); 

7073 while(fp->s_ilock) 

7074 sleep (&fp->s_ilock, PINOD) ; 
7075 loop: 

7076 if(fp->s_ninode > 0) { 

7077 ino = fp->s_inode[--fp->s_ninode] ; 
7078 ip = iget(dev, ino); 

7079 if (ip==NULL) 

7080 return (NULL) ; 

7081 if(ip->i_mode == 0) { 

7082 for(bp = &ip->i_mode; bp < &ip->i_addr[8];) 
7083 *bp++ = 0; 
7084 fp->s_fmod = 1; 

7085 return (ip) ; 

7086 } 

7087 /* 

7088 * Inode was allocated after all. 
7089 * Look some more. 

7090 */ 

7091 iput (ip); 

7092 goto loop; 

7093 } 

7094 fp->s_ilock++; 

7095 ino = 0; 

7096 for(i=0; i<fp->s_isize; i++) { 
7097 bp = bread(dev, i+2); 

7098 ip = bp->b_ addr; 

7099 for(j=0; j<256; j=+16) { 
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7100 
7101 
7102 
7103 
7104 
7105 
7106 
7107 
7108 
7109 
7110 
7111 
7112 
7113 
7114 
7115 
7116 
7117 
7118 
7119 
7120 
7121 
7122 
7123 } 
7124 / 
7125 / 
7126 
7127 / 
7128 
7129 
7130 
7131 
7132 
7133 
7134 i 
7135 { 
7136 
7137 
7138 
7139 
7140 
7141 
7142 
7143 
7144 
7145 } 
7146 / 
7147 / 
7148 
7149 / 


ino++; 
if(ip[j] != 0) 
continue; 
for (k=0; k<NINODE; k++) 
if(dev == inode[k].i_ dev && 
ino == inode[k] .i_ number) 
goto cont; 
fp->s_inode[fp->s_ ninode++] = ino; 
if(fp->s_ninode >= 100) 
break; 
cont:; 


brelse (bp) ; 
if (fp->s_ninode >= 100) 
break; 
} 
fp->s_ilock = 0; 
wakeup (&fp->s_ilock) ; 
if (fp->s_ninode > 0) 
goto loop; 
prdev("Out of inodes", dev); 


u.u_error = ENOSPC; 
return (NULL) ; 
eet hei a Se a eee ete a ee */ 
De Fie senegal lo */ 
* 
* Free the specified I node 
* on the specified device. 
* The algorithm stores up 
* 


to 100 I nodes in the super 
* block and throws away any more. 
*/ 


free(dev, ino) 
register *fp; 


fp = getfs (dev); 
if (fp->s_ilock) 
return; 
if(fp->s_ninode >= 100) 
return; 
fp->s_inode[fp->s_ ninode++] = ino; 
fp->s_fmod = 1; 


*o jo eiele ee ae ole ee oe a Se ae ae */ 
eas a este at“ ea */ 


* 
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getfs maps a device number into 
a pointer to the incore super 
block. 

The algorithm is a linear 
search through the mount table. 
A consistency check of the 

in core free-block and i-node 
counts. 


bad count on dev x/y -- the count 

check failed. At this point, all 

the counts are zeroed which will 

almost certainly lead to "no space" 
diagnostic 

panic: no fs -- the device is not mounted. 
this "cannot happen" 


+ Fe ee HF FF KF HF HF HH HF 


* 


*/ 
getfs (dev) 


register struct mount *p; 
register char *nl, *n2; 


for(p = &mount[0]; p < &mount [NMOUNT]; p++) 
if(p->m_bufp != NULL && p->m_dev == dev) { 
p = p->m_bufp->b_ addr; 
nl = p->s_nfree; 
n2 = p->s_ninode; 
if(nl > 100 || n2 > 100) { 
prdev("bad count", dev); 
p->s_nfree = 0; 
p->s_ninode = 0; 
} 


return (p) ; 


} 


panic("no fs"); 
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+ Fe FF FH FF 


update is the internal name of 
‘sync’. It goes through the disk 
queues to initiate sandbagged I0; 
goes through the I nodes to write 
modified nodes; and it goes through 
the mount table to initiate modified 
super blocks. 
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update () 
register struct inode *ip; 
register struct mount *mp; 


register *bp; 


if (updlock) 


return; 
updlock++; 
for(mp = &mount[0]; mp < &mount [NMOUNT]; mp++) 
if(mp->m_bufp != NULL) { 
ip = mp->m_bufp->b addr; 
if(ip->s_fmod==0 || ip->s_ilock!=0 | | 
ip->s_flock!=0 || ip->s_ronly!=0) 


continue; 
bp = getblk(mp->m_dev, 1); 
ip->s_fmod = 0; 
ip->s_time[0] = time[0]; 
ip->s_time[1] = time[1]; 
bcopy(ip, bp->b_addr, 256); 
bwrite (bp) ; 


for(ip = &inode[0]; ip < &inode[NINODE]; ip++) 
if ((ip->i_flag&ILOCK) == 0) 
ip->i_flag =| ILOCK; 
iupdat(ip, time) ; 
prele(ip) ; 


updlock = 0; 
bflush (NODEV) ; 


} 
[*® --- een nnn ene eee */ 
Yi eee */ 
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# 

#include "../param.h" 
#include "../systm.h" 
#include "../user.h" 
#include "../inode.h" 


#include "../filsys.h" 
#include "../conf.h" 
#include "../buf.h" 


/ 
Look up an inode by device, inumber. 

If it is in core (in the inode structure), 
honor the locking protocol. 

If it is not in core, read it in from the 
specified device. 

If the inode is mounted on, perform 

the indicated indirection. 

In all cases, a pointer to a locked 

inode structure is returned. 


printf warning: no inodes -- if the inode 
structure is full 

panic: no imt -- if the mounted file 
system is not in the mount table. 

"cannot happen" 


+e ee Fe HF HH HH HH 


* 


*/ 


iget (dev, ino) 


register struct inode *p; 
register *ip2; 

int *ipl; 

register struct mount *ip; 


loop: 
ip = NULL; 
for(p = &inode[0]; p< &inode[NINODE]; p++) { 
if (dev==p->i dev && ino==p->i number) { 
if((p->i_flag&ILOCK) != 0) { 

p->i_flag =| IWANT; 
sleep(p, PINOD) ; 
goto loop; 


if((p->i_flag&IMOUNT) != 0) { 
for (ip = &mount [0]; 
ip < &mount[NMOUNT]; ip++) 
if (ip->m_inodp == p) { 
dev = ip->m_dev; 
ino = ROOTINO; 
goto loop; 
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7300 panic("no imt"); 7350 if(rp->i_count == 1) { 

7301 } 7351 rp->i_flag =| ILOCK; 

7302 p->i_count++; 7352 if(rp->i_nlink <= 0) 

7303 p->i_flag =| ILOCK; 7353 itrunc (rp) ; 

7304 return (p) ; 7354 rp->i_mode = 0; 
7305 } 7355 ifree(rp->i_ dev, rp->i_number) ; 
7306 if (ip==NULL && p->i_count==0) 7356 } 

7307 ip = py 7357 iupdat (rp, time) ; 

7308 } 7358 prele(rp); 

7309 if((p=ip) == NULL) { 7359 rp->i_flag = 0; 

7310 printf ("Inode table overflow\n") ; 7360 rp->i_number = 0; 

7311 u.u_error = ENFILE; 7361 } 

7312 return (NULL) ; 7362 rp->i_count--; 

7313 } 7363 prele (rp) ; 

7314 p->i_dev = dev; 7364 } 

7315 p->i_number = ino; 7365 /* ------------------------- */ 
7316 p->i_flag = ILOCK; 7366 

7317 p->i_count++; 7367 /* 

7318 p->i_lastr = -1; 7368 * Check accessed and update flags on 
7319 ip = bread(dev, ldiv(ino+31,16)); 7369 * an inode structure. 

7320 /* 7370 * If either is on, update the inode 
7321 * Check I/O errors 7371 * with the corresponding dates 

7322 */ 7372 * set to the argument tm. 

7323 if (ip->b flags&B ERROR) { 7373 */ 

7324 brelse (ip) ; 7374 iupdat(p, tm) 

7325 iput(p); 7375 int *p; 

7326 return (NULL) ; 7376 int *tm; 

7327 } 7377 { 

7328 ipl = ip->b_addr + 32*lrem(ino+31, 16); 7378 register *ipl, *ip2, *rp; 

7329 ip2 = &p->i_mode; 7379 int *bp, i; 

7330 while(ip2 < &p->i_addr[8]) 7380 

7331 *ip2++ = *ipl++; 7381 rp = pe 

7332 brelse (ip); 7382 if ((rp->i_flag&(IUPD|IAcc)) != 0) { 
7333 return (p) ; 7383 if (getfs(rp->i_dev) ->s_ronly) 
7334 } 7384 return; 

7335 /* ------------------------- */ 7385 i = rp->i_number+31; 

7336 7386 bp = bread(rp->i_ dev, ldiv(i,16)); 
7337 /* 7387 ipl = bp->b_ addr + 32*lrem(i, 16); 
7338 * Decrement reference count of 7388 ip2 = &rp->i_mode; 

7339 * an inode structure. 7389 while(ip2 < &rp->i_addr[8]) 
7340 * On the last reference, 7390 *ipl++ = *ip2++; 
7341 * write the inode out and if necessary, 7391 if(rp->i_flagsIacc) { 

7342 * truncate and deallocate the file. 7392 *ipl++ = time[0]; 
7343 */ 7393 *ipl++ = time[1]; 
7344 iput(p) 7394 } else 

7345 struct inode *p; 7395 ipl =+ 2; 

7346 { 7396 if(rp->i_flagsIUPD) { 

7347 register *rp; 7397 *ipl++ = *tm++; 
7348 7398 *ipl++ = *tm; 

7349 rp = p; 7399 } 
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7400 bwrite (bp) ; 7450 /* ------------------------- */ 
7401 } 7451 

7402 } 7452 /* 

7403 /* ------------------------- */ 7453 * Make a new file. 

7404 7454 */ 

7405 /* 7455 maknode (mode) 

7406 * Free all the disk blocks associated 7456 { 

7407 * with the specified inode structure. 7457 register *ip; 

7408 * The blocks of the file are removed 7458 

7409 * in reverse order. This FILO 7459 ip = ialloc(u.u_pdir->i_ dev); 
7410 * algorithm will tend to maintain 7460 if (ip==NULL) 

7411 * a contiguous free list much longer 7461 return (NULL) ; 

7412 * than FIFO. 7462 ip->i_flag =| IACC|IUPD; 

7413 */ 7463 ip->i_mode = mode|IALLOC; 

7414 itrunc (ip) 7464 ip->i_nlink = 1; 

7415 int *ip; 7465 ip->i_uid = u.u_uid; 

7416 { 7466 ip->i_gid = u.u_gid; 

7417 register *rp, *bp, *cp; 7467 wdir (ip); 

7418 int *dp, *ep; 7468 returm (ip) ; 

7419 7469 } 

7420 rp = ip; 7470 /* ------------------------- */ 
7421 if ((rp->i_mode& (IFCHR&IFBLK)) != 0) 7471 

7422 return; 7472 /* 

7423 for(ip = &rp->i_addr[7]; ip >= &rp->i_addr[0]; ip--) 7473 * Write a directory entry with 
7424 if(*ip) { 7474 * parameters left as side effects 
7425 if((rp->i_mode&ILARG) != 0) { 7475 * to a call to namei. 

7426 bp = bread(rp->i_dev, *ip); 7476 */ 

7427 for(cp = bp->b_addr+512; cp >= bp->b_ addr; 7477 wdir (ip) 

7428 cp--) 7478 int *ip; 

7429 if(*cp) { 7479 { 

7430 if(ip == &rp->i_addr[7]) { 7480 register char *cpl, *cp2; 

7431 dp = bread(rp->i_dev, *cp); 7481 

7432 for(ep = dp->b_addr+512; 7482 u.u_dent.u_ino = ip->i_number; 
7433 ep >= dp->b_addr; ep--) 7483 cpl = &u.u_dent.u_name[0]; 

7434 if (*ep) 7484 for(cp2 = &u.u_dbuf[0]; cp2 < &u.u_dbuf [DIRSIZ] ;) 
7435 free(rp->i_dev, *ep); 7485 *copl++ = *cp2++; 

7436 brelse (dp) ; 7486 u.u_count = DIRSIZ+2; 

7437 } 7487 u.u_segflg = 1; 

7438 free(rp->i_dev, *cp); 7488 u.u_base = &u.u_dent; 

7439 } 7489 writei(u.u_pdir); 

7440 brelse (bp) ; 7490 iput(u.u_pdir) ; 

7441 } 7491 } 

7442 free(rp->i dev, *ip); 7492 /* ------------------------- */ 
7443 *ip = 0; 7493 

7444 } 7494 

7445 rp->i_mode =& ~ILARG; 7495 

7446 rp->i_sizeOd = 0; 7496 

7447 rp->i_sizel = 0; 7497 

7448 rp->i_flag =| IUPD; 7498 

7449 } 7499 
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7500 # 

7501 #include "../param.h" 

7502 #include "../inode.h" 

7503 #include "../user.h" 

7504 #include "../systm.h" 

7505 #include "../buf.h" 

7506 

7507 /* 

7508 * Convert a pathname into a pointer to 
7509 * an inode. Note that the inode is locked. 
7510 * 

7511 * func = function called to get next char of name 
7512 * &uchar if name is in user space 

7513 * &schar if name is in system space 

7514 * flag = 0 if name is sought 

7515 * 1 if name is to be created 

7516 * 2 if name is to be deleted 

7517 */ 


7518 namei(func, flag) 
7519 int (*func) (); 


7520 { 

7521 register struct inode *dp; 
7522 register c; 

7523 register char *cp; 

7524 int eo, *bp; 

7525 

7526 /* 

7527 * If name starts with ’/’ start from 
7528 * root: otherwise start from current dir. 
7529 */ 

7530 

7531 dp = u.u_cdir; 

7532 if ((c=(*func) ()) == ’/’); 

7533 dp = rootdir; 

7534 iget(dp->i_dev, dp->i_number) ; 
7535 while(c == '/’) 

7536 ec = (*func) (); 

7537 if(c == '\0’ && flag != 0) { 
7538 u.u_error = ENOENT; 
7539 goto out; 

7540 } 

7541 

7542 cloop: 

7543 /* 

7544 * Here dp contains pointer 
7545 * to last component matched. 
7546 */ 

7547 

7548 if (u.u_error) 

7549 goto out; 
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7550 if(c == ’\0") 

7551 return (dp) ; 

7552 

7553 /* 

7554 * If there is another component, 
7555 * dp must be a directory and 
7556 * must have x permission. 

7557 */ 

7558 

7559 if ((dp->i_mode&IFMT) != IFDIR) { 
7560 u.u_error = ENOTDIR; 

7561 goto out; 

7562 

7563 if(access(dp, IEXEC) ) 

7564 goto out; 

7565 

7566 /* Gather up name into 

7567 * users’ dir buffer. 

7568 */ 

7569 

7570 cp = &u.u_dbuf [0]; 

7571 while(c!='/' && c!l=’\0’ && u.u_error==0) { 
7572 if(cp < &u.u_dbuf [DIRSIZ] ) 
7573 *cpt++ = c; 

7574 c = (*func) (); 

7575 

7576 while(cp < &u.u_dbuf [DIRSIZ] ) 

7577 *cp++ = ’\0'; 

7578 while(c == ‘/’) 

7579 ce = (*func) (); 

7580 if (u.u_error) 

7581 goto out; 

7582 

7583 /* Set up to search a directory. */ 
7584 

7585 u.u_offset[1] = 0; 

7586 u.u_offset[0] = 0; 

7587 u.u_segflg = 1; 

7588 eo = 0; 

7589 u.u_count = ldiv(dp->i_sizel, DIRSIZ+2); 
7590 bp = NULL; 

7591 

7592 eloop: 

7593 

7594 /* 

7595 * If at the end of the directory, 
7596 * the search failed. Report what 
7597 * is appropriate as per flag. 
7598 */ 

7599 
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7600 if(u.u_count == 0) { 

7601 if(bp != NULL) 

7602 brelse (bp) ; 

7603 if(flag==1 && c==’\0’') { 

7604 if(access(dp, IWRITE) ) 

7605 goto out; 

7606 u.u_pdir = dp; 

7607 if (eo) 

7608 u.u_offset[1] = eo-DIRSIZ-2; else 
7609 dp->i_ flag =| IUPD; 
7610 return (NULL) ; 

7611 } 

7612 u.u_error = ENOENT; 

7613 goto out; 

7614 } 

7615 

7616 /* 

7617 * If offset is on a block boundary, 

7618 * read the next directory block. 

7619 * Release previous if it exists. 

7620 */ 

7621 

7622 if((u.u_offset[1]&0777) == 0) { 

7623 if(bp != NULL) 

7624 brelse (bp) ; 

7625 bp = bread(dp->i dev, 

7626 bmap(dp, ldiv(u.u_offset[1], 512))); 
7627 } 

7628 

7629 /* Note first empty directory slot 

7630 * in eo for possible creat. 

7631 * String compare the directory entry 

7632 * and the current component. 

7633 * If they do not match, go back to eloop. 
7634 */ 

7635 

7636 bcopy (bp->b_addr+(u.u_offset[1]&0777), &u.u_dent, 
7637 (DIRSIZ+2) /2); 
7638 u.u_offset[1] =+ DIRSIZ+2; 

7639 u.u_count--; 

7640 if(u.u_dent.u_ino == 0) { 

7641 if(eo == 0) 

7642 eo = u.u_ offset [1]; 

7643 goto eloop; 

7644 } 

7645 for(cp = &u.u_dbuf[0]; cp < &u.u_dbuf[DIRSIZ]; cp++) 
7646 if(*cp != cp[u.u_dent.u_name - u.u_dbuf]) 
7647 goto eloop; 

7648 

7649 
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/* Here a component matched is a directory. 
* If there is more pathname, go back to 
* cloop, otherwise return. 


*/ 


if(bp != NULL) 
brelse (bp) ; 

if (flag==2 && c=='\0’) { 
if(access(dp, IWRITE) ) 

goto out; 

return (dp) ; 

} 

bp = dp->i_dev; 

iput (dp) ; 

dp = iget(bp, u.u_dent.u_ino); 

if(dp == NULL) 
return (NULL) ; 

goto cloop; 


out: 
iput (dp) ; 
return (NULL) ; 


[* ----- 2-2 - eee eee */ 
/* 


* Return the next character from the 
* kernel string pointed at by dirp. 
*/ 

schar () 


{ 


return (*u.u_dirp++ & 0377); 


[* ---- 2-H */ 


/* Return the next character from the 
* user string pointed at by dirp. 
*/ 

uchar () 


{ 


register c; 


ec = fubyte(u.u_dirp++) ; 
if(c == -1) 

u.u_error = EFAULT; 
return (c) ; 
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7700 #include "../param.h" 7750 ip->i_count = 2; 

7701 #include "../systm.h" 7751 ip->i_flag = IACC|IUPD; 

7702 #include "../user.h" 7752 ip->i_mode = IALLOC; 

7703 #include "../inode.h" 7753 } 

7704 #include "../file.h" 7754 /* ------------------------- */ 

7705 #include "../reg.h" 7755 

7706 7756 /* Read call directed to a pipe. 

7707 /* Max allowable buffering per pipe. 7757 */ 

7708 * This is also the max size of the 7758 readp(fp) 

7709 * file created to implement the pipe. 7759 int *fp; 

7710 * If this size is bigger than 4096, 7760 

7711 * pipes will be implemented in LARGe 7761 register *rp, *ip; 

7712 * files, which is probably not good. 7762 

7713 */ 7763 rp = fp; 

7714 7764 ip = rp->f_inode; 

7715 #define PIPSIZ 4096 7765 loop: 

7716 7766 /* Very conservative locking. 

7717 /* The sys-pipe entry. 7767 */ 

7718 * Allocate an inode on the root device. 7768 plock (ip) ; 

7719 * Allocate 2 file structures. 7769 /* If the head (read) has caught up with 
7720 * Put it all together with flags. 7770 * the tail (write), reset both to 0. 
7721 = =*/ 7771 */ 

7722 7772 if(rp->f offset[1] == ip->i_sizel) { 
7723 pipe() 7773 if(rp->f_offset[1] != 0) { 
7724 { 7774 rp->f offset[1] = 0; 
7725 register *ip, *rf, *wf; 7775 ip->i_sizel = 0; 

7726 int x; 7776 if(ip->i_mode&IWRITE) { 
7727 7777 ip->i_mode =& ~IWRITE; 
7728 ip = ialloc(rootdev) ; 7778 wakeup (ip+1) ; 
7729 if(ip == NULL) 7779 } 

7730 return; 7780 } 

7731 rf = falloc(); 7781 

7732 if(rf == NULL) { 7782 /* If there are not both reader and 
7733 iput (ip); 7783 * writer active, return without 
7734 return; 7784 * satisfying read. 

7735 } 7785 */ 

7736 r = u.u_ar0[R0]; 7786 prele(ip) ; 

7737 wf = falloc(); 7787 if(ip->i_count < 2) 

7738 if(wf == NULL) { 7788 return; 

7739 rfi->f count = 0; 7789 ip->i_mode =| IREAD; 

7740 u.u_ofile[r] = NULL; 7790 sleep(ip+2, PPIPE) ; 

7741 iput (ip); 7791 goto loop; 

7742 return; 7792 

7743 } 7793 /* Read and return 

7744 u.u_ar0[R1] = u.u_ar0[R0]; 7794 */ 

7745 u.u_arO[RO] = r; 7795 u.u_offset[0] = 0; 

7746 wf->f flag = FWRITE|FPIPE; 7796 u.u_offset[1] = rp->f_offset[1]; 

7747 wf->f inode = ip; 7797 readi (ip); 

7748 rf->f flag = FREAD|FPIPE; 7798 rp->f offset[1] = u.u_offset[1]; 

7749 rf->f inode = ip; 7799 prele(ip); 
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7800 } 

7801 /* ------------------------- */ 
7802 

7803 /* Write call directed to a pipe. 
7804 */ 

7805 writep (fp) 

7806 

7807 register *rp, *ip, c; 

7808 

7809 rp = fp; 

7810 ip = rp->f_inode; 

7811 ¢ = u.u_count; 

7812 loop: 

7813 /* If all done, return. 

7814 */ 

7815 plock (ip) ; 

7816 if(c == 0) { 

7817 prele(ip); 

7818 u.u_count = 0; 

7819 return; 

7820 

7821 /* If there are not both read and 
7822 * write sides of the pipe active, 
7823 * return error and signal too. 
7824 */ 

7825 if(ip->i_count < 2) { 

7826 prele(ip); 

7827 u.u_error = EPIPE; 

7828 psignal(u.u_procp, SIGPIPE) ; 
7829 return; 

7830 

7831 /* If the pipe is full, 

7832 * wait for reads to delete 

7833 * and truncate it. 

7834 */ 

7835 if(ip->i_sizel == PIPS1z) { 

7836 ip->i_mode =| IWRITE; 
7837 prele(ip) ; 

7838 sleep(ip+1, PPIPE); 

7839 goto loop; 

7840 } 

7841 /* Write what is possible and 
7842 * loop back. 

7843 */ 

7844 u.u_offset[0] = 0; 

7845 u.u_offset[1] = ip->i_sizel; 

7846 u.u_count = min(c, PIPSIZ-u.u_offset[1]); 
7847 ¢ =- u.u_count; 

7848 writei (ip); 

7849 prele(ip); 
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if(ip->i_mode&IREAD) { 
ip->i_mode =& ~IREAD; 
wakeup (ip+2) ; 


} 


goto loop; 


[* --- 2-2 nn eee */ 


/* Lock a pipe. 

* If its already locked, 

* set the WANT bit and sleep. 
*/ 


plock (ip) 
int *ip; 
{ 
register *rp; 
rp = ip; 
while(rp->i flag&ILOcK) { 
rp->i_ flag =| IWANT; 
sleep(rp, PPIPE); 
rp->i_flag =| ILOCK; 
} 
[* ------- eee ------eee */ 


/* Unlock a pipe. 
* If WANT bit is on, 
* wakeup. 
* This routine is also used 
* to ulock inodes in general. 
te 

prele(ip) 

int *ip; 

{ 


register *rp; 


rp = ip; 

rp->i_flag =& ~ILOCK; 

if(rp->i_flag&IWANT) { 
rp->i_flag =& ~IWANT; 
wakeup (rp) ; 


[* ----- 2-H */ 


Copyright, J. Lions, 1976 


Sheet 78 





Character Oriented 
Special Files 


Sep 


7900 
7901 
7902 
7903 
7904 
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7931 
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7939 
7940 
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7948 
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+ ee ee OF 


A clist structure is the head 

of a linked list queue of characters. 
The characters are stored in 4-word 
blocks containing a link and 6 characters. 
The routines getc and putc (m45.s or m40.s) 


* manipulate these structures. 


*/ 
struct clist 
int c_ cc; 
int c cf; 
int c cl; 
}3 
[R nnn nee eee eee 
/* 


A tty structure is 


/* character count */ 


/* pointer t 
/* pointer t 


mamtoroe */ 


needed for 


each UNIX character device that 


is used for normal 


terminal IO. 


common code associated with 


these structures. 


* 
* 
* 
* The routines in tty.c handle the 
* 
* 
* 


The definition and device dependent 
* code is in each driver (kl.c dc.c dh.c) 


struct tty 


struct clist t_rawq; 
struct clist t_canq; 
struct clist t_outq; 
int t_flags; /* 
int *t_addr; /* 


char t_delct; /* 


char t_col; /* 
char t_erase; /* 
char t_kill; /* 
char t_state; /* 
char t_char; /* 
int t_speeds; /* 
int t_dev; /* 
}; 

[/* ------------------- 


/* input chars ri 


/* input chars after erase and kill */ 


/* output list to 


o first block */ 
o last block */ 


ght off device */ 


device */ 


mode, settable by stty call */ 
device address (register or 
startup fcn) */ 


number of delimit 
printing column o 
erase character * 
kill character */ 


ers in raw q */ 
£ device */ 


/ 


internal state, not visible 


exte 


rnally */ 


character temporary */ 


output+input line 
device name */ 


Soe oe */ 


char partab[]; /* ASCII table: parity, 
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Sep 


7950 
7951 
7952 
7953 
7954 
7955 
7956 
7957 
7958 
7959 
7960 
7961 
7962 
7963 
7964 
7965 
7966 
7967 
7968 
7969 
7970 
7971 
7972 
7973 
7974 
7975 
7976 
7977 
7978 
7979 
7980 
7981 
7982 
7983 
7984 
7985 
7986 
7987 
7988 
7989 
7990 
7991 
7992 
7993 
7994 
7995 
7996 
7997 
7998 
7999 
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#define TTIPRI 10 

#define TTOPRI 20 

#define CERASE ‘'#/ /* default special characters */ 
#define CEOT 004 

#define CKILL ‘@’ 

#define CQUIT 034 /* FS, cntl shift L */ 

#define CINTR 0177 /* DEL */ 


/* limits */ 


#define TTHIWAT 50 
#define TTLOWAT 30 
#define TTYHOG 256 


/* modes */ 


#define HUPCL o1 
#define XTABS 02 
#define LCASE 04 
#define ECHO 010 
#define CRMOD 020 
#define RAW 040 
#define ODDP 0100 
#define EVENP 0200 
#define NLDELAY 001400 
#define TBDELAY 006000 
#define CRDELAY 030000 
#define VTDELAY 040000 


/* Hardware bits */ 
#define DONE 0200 
#define IENABLE 0100 


/* Internal state bits */ 


#define TIMEOUT 01 /* Delay timeout in progress */ 
#define WOPEN 02 /* Waiting for open to 
complete */ 
#define ISOPEN 04 /* Device is open */ 
#define SSTART 010 /* Has special start routine 
at addr */ 
#define CARR_ON 020 /* Software copy of 
carrier-present */ 
#define BUSY 040 /* Output in progress */ 
#define ASLEEP 0100 /* Wakeup when output done */ 
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8000 # 

8001 /* KL/DL-11 driver */ 

8002 #include "../param.h" 

8003 #include "../conf.h" 

8004 #include "../user.h" 

8005 #include "../tty.h" 

8006 #include "../proc.h" 

8007 /* base address */ 

8008 #define KLADDR 0177560 /* console */ 
8009 #define KLBASE 0176500 /* kl and dlli-a */ 
8010 #define DLBASE 0175610 /* dl-e */ 
8011 #define NKL11 1 

8012 #define NDL11 0 

8013 #define DSRDY 02 

8014 #define RDRENB 01 

8015 struct tty k111[NKL11+NDL11] ; 

8016 struct klregs { 

8017 int klresr; 

8018 int klrbuf; 

8019 int kltcsr; 

8020 int kltbuf; 

8021 } 

8022 /* ------------------------- */ 
8023 klopen(dev, flag) 

8024 { register char * addr; 

8025 register struct tty *tp; 

8026 if (dev.d_ minor >= NKL11+NDL11) { 

8027 u.u_error = ENXIO; 

8028 return; 

8029 } 

8030 tp = &k111[dev.d minor] ; 

8031 if (u.u_procp->p ttyp == 0) { 

8032 u.u_procp->p_ttyp = tp; 

8033 tp->t_dev = dev; 

8034 } 

8035 /* set up minor 0 to address KLADDR 
8036 * set up minor 1 thru NKL11-1 to address from KLBASE 
8037 * set up minor NKL11 on to address from DLBASE 
8038 */ 

8039 addr = KLADDR + 8*dev.d minor; 

8040 if (dev.d_minor) 

8041 addr =+ KLBASE-KLADDR-8; 

8042 if(dev.d_minor >= NKL11) 

8043 addr =+ DLBASE-KLBASE-8*NKL11+8; 
8044 tp->t_addr = addr; 

8045 if ((tp->t_state&ISOPEN) == 0) { 

8046 tp->t_ state = ISOPEN|CARR ON; 
8047 tp->t_flags = XTABS|LCASE|ECHO|CRMOD; 
8048 tp->t_erase = CERASE; 

8049 tp->t_kill = CKILL; 
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8050 } 

8051 addr->klresr =| IENABLE|DSRDY|RDRENB; 
8052 addr->kltcsr =| IENABLE; 

8053 } 

8054 /* ------------------------- */ 
8055 klclose (dev) 

8056 { register struct tty *tp; 

8057 tp = &k111[dev.d minor]; 

8058 wflushtty (tp) ; 

8059 tp->t_state = 0; 

8060 } 

8061 /* ------------------------- */ 
8062 klread (dev) 

8063 { ttread(&kl11[dev.d minor]) ; 

8064 } 

8065 /* ------------------------- */ 
8066 klwrite (dev) 

8067 { ttwrite(&kl11[dev.d minor]) ; 

8068 } 

8069 /* ------------------------- */ 
8070 klxint (dev) 

8071 { register struct tty *tp; 

8072 tp = &k111[dev.d minor] ; 

8073 ttstart (tp); 

8074 if (tp->t_outq.c_ cc == 0 || tp->t_outq.c cc == TTLOWAT) 
8075 wakeup (&tp->t_outq) ; 

8076 } 

8077 /* ------------------------- */ 
8078 klrint (dev) 

8079 { register int c, *addr; 

8080 register struct tty *tp; 

8081 tp = &k111[dev.d_ minor]; 

8082 addr = tp->t_addr; 

8083 c¢ = addr->klrbuf; 

8084 addr->klrcesr =| RDRENB; 

8085 if ((c&0177) ==0) 

8086 addr->kltbuf = c; /* hardware botch */ 
8087 ttyinput(c, tp); 

808s } 

8089 /* ------------------------- */ 
8090 klsgtty(dev, v) 

8091 int *v; 

8092 { register struct tty *tp; 

8093 tp = &k111[dev.d minor] ; 

8094 ttystty(tp, v); 

8095 } 

8096 /* ------------------------- */ 
8097 

8098 

8099 
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8100 
8101 
8102 
8103 
8104 
8105 
8106 
8107 
8108 
8109 
8110 
8111 
8112 
8113 
8114 
8115 
8116 
8117 
8118 
8119 
8120 
8121 
8122 
8123 
8124 
8125 
8126 
8127 
8128 
8129 
8130 
8131 
8132 
8133 
8134 
8135 
8136 
8137 
8138 
8139 
8140 
8141 
8142 
8143 
8144 
8145 
8146 
8147 
8148 
8149 
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# /* general TTY subroutines */ 


#include "../param.h" 

#include "../systm.h" 

#include "../user.h" 

#include "../tty.h" 

#include "../proc.h" 

#include "../inode.h" 

#include "../file.h" 

#include "../reg.h" 

#include "../conf.h" 

/* Input mapping table-- if an entry is non-zero, when the 


* corresponding character is typed preceded by "\" the 
* escape sequence is replaced by the table value. 


* Mostly used for upper-case only terminals. 
* 
/ 
char maptab [] 
{ 
000,000,000,000,004,000,000,000, 
000,000,000,000,000,000,000,000, 
000,000,000,000,000,000,000,000, 
000,000,000,000,000,000,000,000, 
000,’|’,000,’#",000,000,000,'*"’, 
'{7,*}*",000,000,000,000,000,000, 
000,000,000,000,000,000,000,000, 
000,000,000,000,000,000,000,000, 
‘@’,000,000,000,000,000,000,000, 
000,000,000,000,000,000,000,000, 
000,000,000,000,000,000,000,000, 
000,000,000,000,000,000,'~"’,000, 
000,’A’,’B’,‘'C’,’D’,’E’,'F’,'G’, 
‘HY, 11", '5','K’,'L','M','N’,/0', 
'P’,1Q','R’,'S','T',/U', VW, 
"x','Y’,'Z"’,000,000,000,000,000, 
}i 
[*® ---- enn nn nnn */ 


/* The actual structure of a clist block manipulated by 


* getc and putc (mch.s) 
*/ 
struct cblock { 
struct cblock *c next; 
char info[6]; 


[*® --- nee nn nen ene eee */ 
/* The character lists-- space for 6*NCLIST characters */ 


struct cblock cfree[NCLIST] ; 


/* List head for unused character blocks. */ 
struct cblock *cfreelist; 
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8150 
8151 
8152 
8153 
8154 
8155 
8156 
8157 
8158 
8159 
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8165 
8166 
8167 
8168 
8169 
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8174 
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8178 
8179 
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8181 
8182 
8183 
8184 
8185 
8186 
8187 
8188 
8189 
8190 
8191 
8192 
8193 
8194 
8195 
8196 
8197 
8198 
8199 
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/* structure of device registers for KL, DL, and DC 
* interfaces-- more particularly, those for which the 
* SSTART bit is off and can be treated by general routines 
* (that is, not DH). 
+7 
struct { 
int ttresr; 
int ttrbuf; 
int tttcsr; 
int tttbuf; 
}; 
[* ----- 2-2 nee eee */ 
/* The routine implementing the gtty system call. 
* Just call lower level routine and pass back values. 
*/ 
gtty () 


int v[3]; 
register *up, *vp; 


vp = vi 
sgtty (vp) ; 
if (u.u_error) 
return; 
up = u.u_arg[0]; 
suword(up, *vp++); 
suword(++up, *vp++); 
suword(++up, *vp++); 
} 
[* --------- eee eee */ 
/* The routine implementing the stty system call. 
* Read in values and call lower level. 
*/ 
stty () 


register int *up; 


up = u.u_arg[0]; 


u.u_arg[0] = fuword (up) ; 
u.u_arg[1] = fuword(++up) ; 
u.u_arg[2] = fuword(++up) ; 
sgtty (0); 

} 

[* ----- 2-2 - eee eee */ 


/* Stuff common to stty and gtty. 

* Check legality and switch out to individual 

device routine. 

v is 0 for stty; the parameters are taken from u.u_arg[]. 
c is non-zero for gtty and is the place in which the 
device routines place their information. 


+ ee 
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8200 */ 
8201 sgtty(v) 
8202 int *v; 


8203 { 

8204 register struct file *fp; 

8205 register struct inode *ip; 

8206 if ((fp = getf(u.u_ar0[RO])) == NULL) 
8207 return; 

8208 ip = fp->f_inode; 

8209 if ((ip->i_mode&IFMT) != IFCHR) { 
8210 u.u_error = ENOTTY; 

8211 return; 

8212 } 

8213 (*cdevsw[ip->i_addr[0].d_major] .d_sgtty) (ip->i_addr[0],v); 
8214 } 

8215 /* ------------------------- */ 


8216 /* Wait for output to drain, then flush output waiting. */ 
8217 wflushtty (atp) 


8218 struct tty *atp; 

e219 { 

8220 register struct tty *tp; 

8221 tp = atp; 

8222 spl5(); 

8223 while (tp->t_outq.c cc) { 

8224 tp->t_ state =| ASLEEP; 
8225 sleep (&tp->t_outq, TTOPRI) ; 
8226 } 

8227 flushtty (tp) ; 

8228 spl0(); 

8229 } 

8230 /* ------------------------- */ 


8231 /* Initialize clist by freeing all character blocks, & count 
8232 * number of character devices. (Once-only routine) 
8233 */ 


8234 cinit() 

8235 

8236 register int ccp; 

8237 register struct cblock *cp; 

8238 register struct cdevsw *cdp; 

8239 ccp = cfree; 

8240 for (cp=(ccp+07)&~07; cp <= &cfree[NCLIST-1]; cp++) { 
8241 cp->c_ next = cfreelist; 

8242 cfreelist = cp; 

8243 } 

8244 ccp = 0; 

8245 for(cdp = cdevsw; cdp->d_open; cdp++) 
8246 ccpt+t+; 

8247 nchrdev = ccp; 

8248 } 

8249 /* ------------------------- */ 
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8250 /* flush all TTY queues 
8251 */ 

8252 flushtty (atp) 

8253 struct tty *atp; 


8254 

8255 register struct tty *tp; 

8256 register int sps; 

8257 tp = atp; 

8258 while (getc(&tp->t_canq) >= 0); 
8259 while (getc(&tp->t_outq) >= 0); 
8260 wakeup (&tp->t_rawq) ; 

8261 wakeup (&tp->t_outq) ; 

8262 sps = PS->integ; 

8263 sp15(); 

8264 while (getc(&tp->t_rawq) >= 0); 
8265 tp->t_delct = 0; 

8266 PS->integ = sps; 

8267 } 

8268 /* ------------------------- */ 


8269 /* transfer raw input list to canonical list, 

8270 * doing erase-kill processing and handling escapes. 

8271 * It waits until a full line has been typed in cooked mode, 
8272 * or until any character has been typed in raw mode. 

8273 */ 

8274 canon (atp) 

8275 struct tty *atp; 


8276 { 

8277 register char *bp; 

8278 char *bp1; 

8279 register struct tty *tp; 

8280 register int c; 

8281 

8282 tp = atp; 

8283 sp15(); 

8284 while (tp->t delct==0) { 

8285 if ((tp->t_state&CARR_ON) ==0) 
8286 return (0); 

8287 sleep (&tp->t_rawq, TTIPRI) ; 
8288 

8289 sp10(); 

8290 loop: 


8291 bp = &canonb [2]; 
8292 while ((c=getc(&tp->t_rawq)) >= 0) { 


8293 if (c==0377) { 

8294 tp->t_delct--; 

8295 break; 

8296 

8297 if ((tp->t_flags&RAW)==0) { 

8298 if (bp[-1]!="\\") { 

8299 if (c==tp->t_erase) { 
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if (bp > &canonb[2]) 


(tp->t_flags&LCASE))) { 


bp--; 
continue; 
} 
if (c==tp->t_kill) 
goto loop; 
if (c==CEOT) 
continue; 
} else 
if (maptab[c] && (maptab[c]==c | | 
if (bp[-2] != ’\\’) 
¢ = maptab[c]; 
bp--; 
} 
} 
*bp++ = c; 
if (bp>=canonb+CANBSIZ) 
break; 
bp1 = bp; 
bp = &canonb[2]; 
c = &tp->t_canq; 
while (bp<bp1) 
putc(*bp++, c); 
return (1) ; 
efeataate as o srare a ateisiereat aa aera. */ 


Place a character on raw TTY input queue, putting in 


delimiters and waking up top half as needed. 


Also echo if required. 


The arguments are the character and the appropriate 


tty structure. 


8333 ttyinput(ac, atp) 
8334 struct tty *atp; 


8335 
8336 
8337 
8338 
8339 
8340 
8341 
8342 
8343 
8344 
8345 
8346 
8347 
8348 
8349 
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register int t_ flags, c; 
register struct tty *tp; 


tp = atp; 
c = ac; 
t_flags = tp->t_ flags; 
if ((¢ =& 0177) == '\r’ && t_flags&CRMOD) 
ec = /\n'; 
if ((t_flags&RAW)==0 && (c==CQUIT || c==CINTR)) { 


signal(tp, c==CINTR? SIGINT:SIGQIT) ; 


flushtty (tp) ; 
return; 


} 


if (tp->t_rawq.c_cc>=TTYHOG) { 
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} 
/ 
/ 


flushtty (tp) ; 
return; 


if (t_flags&LCASE && c>='A’ && c<='Z') 
Cc =+ 'a’-'A’; 
putc(c, &tp->t_rawq); 
if (t_flags&RAW || c==’\n’ 
wakeup (&tp->t_rawq) ; 
if (putc(0377, &tp->t_rawq) ==0) 
tp->t_delct++; 





| c==004) { 


if (t_flags&ECHO) { 
ttyoutput(c, tp); 
ttstart (tp); 


ES ya it el eh oh ft a fe meee */ 

* put character on TTY output queue, adding delays, 

* expanding tabs, and handling the CR/NL bit. 

* It is called both from the top half for output, and from 
* interrupt level for echoing. 

* The arguments are the character and the tty structure. 


*/ 


ttyoutput(ac, tp) 


{ 


truct tty *tp; 


register int c; 

register struct tty *rtp; 
register char *colp; 

int ctype; 


rtp= tp; 

¢ = ac&0177; 

/* Ignore EOT in normal mode to avoid hanging up 
* certain terminals. 


*/ 
if (c==004 && (rtp->t_flags&RAW) ==0) 
return; 
/* Turn tabs to spaces as required 
*/ 
if (c=='’\t’ && rtp->t flags&XTABS) { 
do 
ttyoutput(’ ’, rtp); 
while (rtp->t_col&07) ; 
return; 
} 


/* for upper-case-only terminals, 
* generate escapes. 
*/ 

if (rtp->t _flags&LCASE) { 
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8400 colp = "({)}!|*-"""; 

8401 while (*colp++) 

8402 if(c == *colp++) { 

8403 ttyoutput(’\\', rtp); 
8404 c¢ = colp[-2]; 

8405 break; 

8406 } 

8407 if (‘a’<=c && c<='2z") 

8408 c =+ ‘A’ - ‘a’; 

8409 } 

8410 /* turn <nl> to <cr><lf> if desired. 

8411 */ 

8412 if (ce=’\n’ && rtp->t_flags&CRMOD) 

8413 ttyoutput(’\r’, rtp); 

8414 if (putc(c, &rtp->t_outgq) ) 

8415 return; 

8416 /* Calculate delays. 

8417 * The numbers here represent clock ticks 
8418 * and are not necessarily optimal for all terminals. 
8419 * The delays are indicated by characters above 0200, 
8420 * thus (unfortunately) restricting the transmission 
8421 * path to 7 bits. 

8422 */ 

8423 colp = &rtp->t_col; 

8424 ctype = partab[c]; 

8425 c = 0; 

8426 switch(ctype&077) { 

8427 /* ordinary */ 

8428 case 0: 

8429 (*colp) ++; 

8430 /* non-printing */ 

8431 case 1: 

8432 break; 

8433 /* backspace */ 

8434 case 2: 

8435 if (*colp) 

8436 (*colp) --; 

8437 break; 

8438 /* newline */ 

8439 case 3: 

8440 ctype = (rtp->t_flags >> 8) & 03; 
8441 if(ctype == 1) { /* tty 37 */ 

8442 if (*colp) 

8443 c = max((*colp>>4) + 3, 6); 
8444 } else 

8445 if(ctype == 2) { /* vt05 */ 
8446 c = 6; 

8447 } 

8448 *colp = 0; 

8449 break; 
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8451 
8452 
8453 
8454 
8455 
8456 
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8458 
8459 
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8470 
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8479 } 
8480 /* 
8481 /* 
8482 * 
8483 * 
8484 * 
8485 */ 
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/* tab */ 
case 4: 
ctype = (rtp->t_ flags >> 10) & 03; 
if(ctype == 1) { /* tty 37 */ 
c = 1 - (*colp | ~07); 
if(c < 5) 
c = 0; 
*colp =| 07; 
(*colp) ++; 
break; 
/* vertical motion */ 
case 5: 
if(rtp->t_ flags & VIDELAY) /* tty 37 */ 
c = 0177; 
break; 
/* carriage return */ 
case 6: 
ctype = (rtp->t_ flags >> 12) & 03; 
if(ctype == 1) { /* tn 300 */ 
c= 5; 
} else 
if(ctype == 2) { /* ti 700 */ 
c = 10; 
} 
*colp = 0; 
if(c) 
putc(c|0200, &rtp->t_outgq); 
Bee ae Se. 66 ane eS a ieee en ee */ 
Restart typewriter output following a delay 


timeout. 
The name of the routine is passed to the timeout 
subroutine and it is called during a clock interrupt. 


8486 ttrstrt(atp) 


8487 { 
8488 
8489 
8490 
8491 
8492 
8493 } 
8494 /* 
8495 /* 
8496 * 
8497 
8498 
8499 


+ +e 


Reproduc 


register struct tty *tp; 


tp = atp; 
tp->t_state =& ~TIMEOUT; 
ttstart (tp); 


alae aie aaa aie a eter ele ele eree, */ 

Start output on the typewriter. It is used from the top 
half after some characters have been put on the output 
queue, from the interrupt routine to transmit the next 
character, and after a timeout has finished. 

If the SSTART bit is off for the tty the work is done 
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8519 
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8524 
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8527 
8528 
8529 
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8531 
8532 
8533 
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8535 
8536 
8537 
8538 
8539 
8540 
8541 
8542 
8543 
8544 
8545 
8546 
8547 
8548 
8549 
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+ + 


* 

*/: 
tts 
str 


} 
/* 
/* 
* 
* 
* 
*/: 
ttr 
str 


{ 


} 

/* 

/* 
* 


*/ 
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here, using the protocol of the single-line interfaces 
(kl, dl, dc); otherwise the address word of the tty 
structure is taken to be the name of the device-dependent 
start-up routine. 


tart (atp) 
uct tty *atp; 


register int *addr, c; 
register struct tty *tp; 
struct { int (*func) (); }; 


tp = atp; 

addr = tp->t_addr; 

if (tp->t_state&SSTART) { 
(*addr. func) (tp); 
return; 


if ((addr->tttcsr&DONE) ==0 || tp->t_state&TIMEOUT) 
return; 
if ((c=getc(&tp->t _outq)) >= 0) { 
if (c<=0177) 
addr->tttbuf = c | (partab[c]&0200); 


else { 
timeout (ttrstrt, tp, c&0177); 
tp->t_state =| TIMEOUT; 
Seek Soothes Sot eo ee es: */ 


Called from device’s read routine after it has 
calculated the tty-structure given as argument. 
The pc is backed up for the duration of this call. 


In case of a caught interrupt, an RTI will re-execute. 
ead (atp) 
uct tty *atp; 
register struct tty *tp; 
tp = atp; 
if ((tp->t_state&CARR_ON) ==0) 
return; 
if (tp->t_cang.c_ cc || canon(tp)) 


while (tp->t_canq.c_ cc && passc(getc(&tp->t_canq) ) >=0); 


SSeS ee Sale ee eee eee ae eee, */ 
Called from the device’s write routine after it has 
calculated the tty-structure given as argument. 
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8550 ttwrite(atp) 
8551 struct tty *atp; 


e552 { 

8553 register struct tty *tp; 

8554 register int c; 

8555 tp = atp; 

8556 if ((tp->t_state&CARR_ ON) ==0) 

8557 return; 

8558 while ((c=cpass())>=0) { 

8559 spl5(); 

8560 while (tp->t_outq.c cc > TTHIWAT) { 
8561 ttstart (tp); 

8562 tp->t_state =| ASLEEP; 

8563 sleep (&tp->t_outq, TTOPRI) ; 
8564 

8565 spl0(); 

8566 ttyoutput(c, tp); 

8567 } 

8568 ttstart (tp); 

8569 } 

8570 /* ------------------------- */ 


8571 /* Common code for gtty and stty functions on typewriters. 
8572 * If v is non-zero then gtty is being done and information 
8573 * is passed back therein; 

8574 * if it is zero stty is being done and the input inform- 
8575 * ation is in the u_arg array. 

8576 */ 

8577 ttystty(atp, av) 

8578 int *atp, *av; 


8579 { 

8580 register *tp, *v; 

8581 tp = atp; 

8582 if(v = av) { 

8583 *v++ = tp->t_speeds; 
8584 v->lobyte = tp->t_erase; 
8585 v->hibyte = tp->t_kill; 
8586 v[1] = tp->t_flags; 
8587 return (1); 

8588 

8589 wflushtty (tp) ; 

8590 v = u.u_arg; 

8591 tp->t_speeds = *v++; 

8592 tp->t_erase = v->lobyte; 

8593 tp->t_kill = v->hibyte; 

8594 tp->t_flags = v[1]; 

8595 return (0) ; 

8596 } 

8597 /* ------------------------- */ 
8598 

8599 
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8600 # 
8601 /* PC-11 Paper tape reader/punch driver */ 
8602 


8603 #include "../param.h" 

8604 #include "../conf.h" 

8605 #include "../user.h" 

8606 

8607 #define PCADDR 0177550 
8608 

8609 #define CLOSED 0 

8610 #define WAITING 1 

8611 #define READING 2 

8612 #define EOF 3 


8613 
8614 #define 
8615 #define 


RDRENB 01 
IENABLE 0100 


8616 #define DONE 0200 
8617 #define BUSY 04000 
8618 #define ERROR 0100000 
8619 

8620 #define PCIPRI 30 

8621 #define PCOPRI 40 

8622 #define PCOLWAT 50 


8623 #define 
8624 #define 


PCOHWAT 100 
PCIHWAT 250 


8625 

8626 struct { 

8627 int percsr; 

8628 int pcrbuf; 

8629 int pcpcesr; 

8630 int pcpbuf; 

8631 }; 

8632 /* ------------------------- */ 
8633 

8634 struct clist { 

8635 int cc; 

8636 int cf; 

8637 int cl; 

8638 }; 

8639 /* ------------------------- */ 
8640 

8641 struct pell { 

8642 int pestate; 

8643 struct clist pcin; 

8644 struct clist pcout; 

8645 } pcll; 

8646 /* ------------------------- */ 
8647 

8648 pcopen(dev, flag) 

8649 


Reproduced under license from the Western Electric Company, NY 
Copyright, J. Lions, 1976 


Sheet 86 


Sep 1 09:28 1988 unix/pc.c Page 2 


8650 extern lbolt; 

8651 

8652 if (flag==0) { 

8653 if (pell.pestate!=CLOSED) { 

8654 u.u_error = ENXIO; 

8655 return; 

8656 } 

8657 pell.pcstate = WAITING; 

8658 while(pcll.pcstate==WAITING) { 
8659 PCADDR->pcrcsr = IENABLE | RDRENB ; 
8660 sleep(&lbolt, PCIPRI) ; 
8661 

8662 } else { 

8663 PCADDR->pcpcesr =| IENABLE; 

8664 pcleader () ; 

8665 } 

8666 } 

8667 /* ------------------------- */ 

8668 

8669 pcclose(dev, flag) 

8670 { 

8671 if (flag==0) { 

8672 spl4(); 

8673 while (getc(&pcll.pcin) >= 0); 
8674 PCADDR->pcrcsr = 0; 

8675 pell.pcstate = CLOSED; 

8676 spl0(); 

8677 } else 

8678 pcleader(); 

8679 } 

8680 /* ------------------------- */ 

8681 

8682 pcread() 

8683 { 

8684 register int c; 

8685 

8686 spl4(); 

8687 do { 

8688 while ((c = getc(&pcll.pcin)) < 0) { 
8689 if (pcll.pcstate==EOF) 
8690 goto out; 

8691 if ((PCADDR->pcrcsré& (ERROR | BUSY | DONE) ) ==0) 
8692 PCADDR->pceresr =| IENABLE|RDRENB; 
8693 sleep(&pcll.pcin, PCIPRI) ; 
8694 

8695 } while (passc(c)>=0); 

8696 out: 

8697 sp10(); 

8698 } 

8699 /* ------------------------- */ 
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8700 8750 if (PCADDR->pcpcsr&ERROR) { 
8701 pewrite() 8751 u.u_error = EIO; 
8702 { 8752 return; 

8703 register int c; 8753 

8704 8754 if (pcll.pcout.cc >= PCOHWAT) 
8705 while ((c=cpass() ) >=0) 8755 sleep (&pcl1l.pcout, PCOPRI) ; 
8706 pcoutput (c) ; 8756 putc(c, &pcll.pcout) ; 

8707 } 8757 spl4(); 

8708 /* ------------------------- */ 8758 pestart(); 

8709 8759 spl10(); 

8710 pestart () 8760 } 

8711 { 8761 /* ------------------------- */ 
8712 register int c; 8762 

8713 8763 pcleader () 

8714 if (PCADDR->pcpcsr&DONE && (c = getc(&pcll.pcout)) >= 0) 8764 { 

8715 PCADDR->pcpbuf = c; 8765 register int i; 

8716 } 8766 

8717 /* ------------------------- */ 8767 i = 100; 

8718 8768 do 

8719 pcrint () 8769 pcoutput (0) ; 

8720 { 8770 while (--i); 

8721 if (pell.pcestate==WAITING) { 8771 } 

8722 if (PCADDR->pcrcsr&ERROR) 8772 /* ------------------------- */ 
8723 return; 8773 

8724 pell.pcstate = READING; 8774 

8725 } 8775 

8726 if (pell.pcestate==READING) { 8776 

8727 if (PCADDR->pcrcsr&ERROR) 8777 

8728 pell.pcstate = EOF; 8778 

8729 else { 8779 

8730 putc(PCADDR->pcrbuf, &pcl1l.pcin) ; 8780 

8731 if (pcll.pcin.cc < PCIHWAT) 8781 

8732 PCADDR->peresr =| IENABLE|RDRENB; 8782 

8733 } 8783 

8734 wakeup (&pc1l1l.pcin) ; 8784 

8735 } 8785 

8736 } 8786 

8737 /* ------------------------- */ 8787 

8738 8788 

8739 pcpint () 8789 

8740 { 8790 

8741 8791 

8742 pestart(); 8792 

8743 if (pcll.pcout.cc <= PCOLWAT) 8793 

8744 wakeup (&pc1l1.pcout) ; 8794 

8745 } 8795 

8746 /* ------------------------- */ 8796 

8747 8797 

8748 pcoutput (c) 8798 

8749 { 8799 

Reproduced under license from the Western Electric Company, NY Reproduced under license from the Western Electric Company, NY 
Copyright, J. Lions, 1976 Copyright, J. Lions, 1976 


Sheet 87 Sheet 87 





Sep 1 09:28 1988 unix/lp.c Page 1 Sep 1 09:28 1988 unix/lp.c Page 2 
8800 # 8850 lpopen(dev, flag) 

8801 /* 8851 

8802 */ 8852 

8803 8853 if(lpll.flag & OPEN || LPADDR->lpsr < 0) { 
8804 /* 8854 u.u_error = EIO; 

8805 * LP-11 Line printer driver 8855 return; 

8806 */ 8856 

8807 8857 1lpll.flag =| (IND|EJECT|OPEN) ; 
8808 #include "../param.h" 8858 LPADDR->lpsr =| IENABLE; 

8809 #include "../conf.h" 8859 lpcanon (FORM) ; 

8810 #include "../user.h" 8860 } 

8811 8861 /* ------------------------- */ 
8812 #define LPADDR 0177514 8862 

8813 8863 lpclose(dev, flag) 

8814 #define IENABLE 0100 8864 { 

8815 #define DONE 0200 8865 1pcanon (FORM) ; 

8816 8866 lpll.flag = 0; 

8817 #define LPPRI 10 8867 } 

8818 #define LPLWAT 50 8868 /* ------------------------- */ 
8819 #define LPHWAT 100 8869 

8820 #define EJLINE 60 8870 lpwrite() 

8821 #define MAXCOL 80 8871 

8822 8872 register int c; 

8823 struct { 8873 

8824 int lpsr; 8874 while ((c=cpass() ) >=0) 

8825 int lpbuf; 8875 lpcanon (c) ; 

8826 }; 8876 } 

8827 /* ------------------------- */ 8877 /* ------------------------- */ 
8828 8878 

8829 struct { 8879 lpcanon(c) 

8830 int cc; 8880 

8831 int [on ae 8881 register cl, c2; 

8832 int cl; 8882 

8833 int flag; 8883 aL = ts 

8834 int mcc; 8884 if(lpll.flagecaP) { 

8835 int ccc; 8885 if(cl>=’a’ && cl<='z’') 
8836 int mlc; 8886 cl =+ ‘A’-’‘a’'; else 
8837 } 1p1l; 8887 switch(cl) { 

8838 /* ------------------------- */ 8888 

8839 8889 case ‘{’: 

8840 #define CAP O01 /* Set to 0 for 96-char printer, 8890 c2 = '('; 

8841 else to 01 */ 8891 goto esc; 

8842 #define EJECT 02 8892 

8843 #define OPEN 04 8893 case '}’: 

8844 #define IND 010 /* Set to 0 for no indent, 8894 c2 = ')'; 

8845 else to 010 */ 8895 goto esc; 

8846 8896 

8847 #define FORM 014 8897 case '*‘': 

8848 8898 e2 = '\''; 
8849 8899 goto esc; 
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8900 

8901 case ‘|’: 

8902 C242 les 

8903 goto esc; 

8904 

8905 case ‘~’: 

8906 e2 = '*'; 

8907 

8908 esc: 

8909 lpcanon (c2) ; 

8910 lpll.ccc--; 

8911 cl = ‘'-'; 

8912 } 

8913 } 

8914 

8915 switch(c1) { 

8916 

8917 case ‘\t’: 

8918 lpll.ccc = (lpll.ccc+8) & ~7; 
8919 return; 

8920 

8921 case FORM: 

8922 case ‘\n’: 

8923 if((lp1l1.flag&EJECT) == 0 | | 
8924 1lpll.mec!=0 || 1pl1.mlc!=0) { 
8925 lpll.mcc = 0; 

8926 lp11.mlc++; 


8927 if(lpll.mlc >= EJLINE && 1p11.flag&EJECT) 


8928 cl = FORM; 
8929 lpoutput (c1) ; 
8930 if(cl == FORM) 
8931 lpll.mlc = 0; 
8932 } 

8933 

8934 case ‘\r’': 

8935 lpll.ccc = 0; 

8936 if (1lp11.flag&IND) 

8937 lpll.ccc = 8; 
8938 return; 

8939 

8940 case 010: 

8941 if(lpll.cce > 0) 

8942 lpll.ccc--; 
8943 return; 

8944 

8945 case ' ‘'3: 

8946 1lp11.ccc++; 

8947 return; 

8948 

8949 default: 
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if(lpll.cce < lpli.mcc) { 
lpoutput(’\r’); 
lpll.mcc = 0; 


if(lpll.ccc < MAXCOL) { 
while(lpll.ccc > 1lpll.mcc) { 
lpoutput(’ ’); 
1lp11.mcc++; 


lpoutput (c1) ; 
lp11.mcc++; 


} 
1lp1l1.ccc++; 
} 
} 
[* ---- 2-2 een -- eee eee */ 
lpstart () 
register int c; 
while (LPADDR->lpsr&DONE && (c = getc(&lpl11)) >= 0) 
LPADDR->lpbuf = c; 
} 
[*R wn nee ee enn eee eee */ 
lpint () 
register int c; 
lpstart (); 
if (lpll.cc == LPLWAT || lpll.ce == 0) 
wakeup (&1p11) ; 
} 
[* ----- 2-2 ene eee */ 


lpoutput (c) 


if (lpll.cc >= LPHWAT) 
sleep(&lp11, LPPRI); 
putc(c, &lp11); 


spl4(); 
lpstart (); 
spl0(); 
} 
[* ---- 2-2 een -----eee */ 
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9000 # 9050 u.u_base =+ c; 

9001 /* 9051 dpadd(u.u_offset, c); 

9002 */ 9052 return; 

9003 9053 } 

9004 /* 9054 for(;;) { 

9005 * Memory special file 9055 bn = lshift(u.u_offset, -6); 
9006 * minor device 0 is physical memory 9056 on = u.u_offset[1] & 077; 
9007 * minor device 1 is kernel memory 9057 if ((c=cpass())<0 || u.u_error!=0) 
9008 * minor device 2 is EOF/RATHOLE 9058 break; 

9009 */ 9059 a = UISA->r[0] = bn; 

9010 9060 d = UISD->r[0] = 077406; 
9011 #include "../param.h" 9061 spl7(); 

9012 #include "../user.h" 9062 UISA->r[0]; 

9013 #include "../conf.h" 9063 UISD->r[0]; 

9014 #include "../seg.h" 9064 if (dev.d_ minor == 1) 

9015 9065 UISA->r[0] = (ka6-6) ->r[(bn>>7) &07] 
9016 mmread (dev) 9066 + (bn & 0177); 
9017 { 9067 suibyte(on, c); 

9018 register c, bn, on; 9068 UISA->r[0] = a; 

9019 int a, d; 9069 UISD->r[0] = d; 

9020 9070 spl0(); 

9021 if(dev.d_ minor == 2) 9071 } 

9022 return; 9072 } 

9023 do { 9073 /* ------------------------- */ 
9024 bn = lshift(u.u_offset, -6); 9074 

9025 on = u.u_offset[1] & 077; 9075 

9026 a = UISA->r[0]; 9076 

9027 d = UISD->r[0]; 9077 

9028 spl17(); 9078 

9029 UISA->r[0] = bn; 9079 

9030 UISD->r[0] = 077406; 9080 

9031 if (dev.d_minor == 1) 9081 

9032 UISA->r[0] = (ka6-6) ->r[(bn>>7) &07] 9082 

9033 + (bn & 0177); 9083 

9034 c = fuibyte(on) ; 9084 

9035 UISA->r[0] = a; 9085 

9036 UISD->r[0] = d; 9086 

9037 spl0(); 9087 

9038 } while(u.u_error==0 && passc(c)>=0); 9088 

9039 } 9089 

9040 /* ------------------------- */ 9090 

9041 9091 

9042 mmwrite (dev) 9092 

9043 { 9093 

9044 register c, bn, on; 9094 

9045 int a, d; 9095 

9046 9096 

9047 if(dev.d_ minor == 2) { 9097 

9048 c = u.u_count; 9098 

9049 u.u_count = 0; 9099 
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